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NOTATION: IT [9 FREQUENTLY NECESSARY TO SET HORDS AND PHRASES OFF FROM THE BODY OF THE 
TEXT. UNFORTUNATELY, SINCE THE ENTIRE TEXT IS RRITTEN Ch CAPITAL LETTERS, af ARE 
UNABLE TO USE CASE AS A DISTINGUISHING CHARACTERISTIC. THEREFORE,  YaRIOUS 
PUNCTUATION MARKS ARE USED. 


A, LANGUAGE STATEMENTS AND MESSAGE STRINGS ARE SEPARATED FROM TEXT BY QUOTATION 
MaRKS, FOR EXAMPLE: THE SYSTEM SENDS & MESSAGE ‘PROBLEM ERROR 0260' TO THE 
TELETYPE ... 


B. TO DEFINE A RORD OR PHRASE, THE TERM {S$ INCLUDED BETHEEN BRACKETS <.... >, 
FOR EXAMPLE: A <TELETYPE> IS A MACHINE ... 


€.  YARIOUS LEVELS CF NAMES ARE INCLUDED IN THE FOLLOAING TABLE: 


LEVEL PUNCTUATION EXAMPLES 
SYSTEM NAME NONE THE FROST SYSTEM... 
FILE NAME Level PUBLIC FILE /LRLLIB/ IS... 
PROGRAM NAME nee? SUBROUTINE -ALTER- WILL... 
VART ABLE NAME Maia SET "ABC" EQUAL TO 


D. IT 1S ALSO FREQUENTLY NECESSARY TO INDICATE CONTENTS AND LOCATIONS, THIS {1S 
DONE BY THE FOLLOAING: 


PUNCTUATION EXAMPLES 
CONTENTS OF Daccced TABt] = 4, 
LOCATION Cr (eed (ABC) «© (0472 


(LRLLIBI = DISC ADDRESSES 107-1251 
THIS NOTATION ALLCHS US TO DISTINGUISH BETAEEN DIFFERENT ENTITIES THAT HAYE THE SAME 
NAMES. FOR EXAMPLE, "PUBLIC FILE /OUT/ CONTAINS PROGRAM -OUT-". = PUNCTUATION 
IS OFTEN OMITTED TF THE TERM 1S ON A LINE OF ITS GAN, IS IN A TABLE, OR IS (CN A LIST. 
CROSS REFERENCES: 


1, CROSS REFERENCES WITHIN CHAPTER 204 aRE INDICATED BY CHAPTER. SECTION. SUBSECTION 
AND PAGE NUMBER: (SEE 204.7.1, PAGE 20). 


2, CROSS REFERENCES TO OTHER CHAPTERS ARE INDICATED IN THE SAME HAY, BUT WITHOUT PAGE 
NUMBERS: (SEE 4.7.35 AND 5.8). 


eo 
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204.1. INTRODUCTION 


THE CHIPPEWA FORTRAN COMPILER OPERATES AS AN INDEPENDENT PROGRAM UNDER THE CONTROL CF THE 
6666 TIME SHARING SYSTEM, THIS COMPILER WILL ACCEPT FORTRAN il, FORTRAN IV, THE CHIPPEHA 
ASSEMBLY LANGUAGE (CLASS), AND A SUBSET OF ASCENTF. 


THE CONTROL ROUTINE FOR THE COMPILER 1S IN PUBLIC FILE /CKIP/, THE COMPILER, CALLES 
“RUN-, AND SUPPORTING LIBRARY ROUTINES ARE CONTAINED IN THE PUBLIC FILE /CLIB/. FOR 
DESCRIPTIONS OF THE LIBRARY ROUTINES AVAILABLE, SEE CHAPTERS 30! THROUGH 507. 


a(|te 
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204.2. PROGRAM CONTROL INFORMATION 


204.2.1. HEADER CARDS 


({} PROGRAM CARD 


THE FIRST CARD OF ANY SOURCE CECK, KHOSE RESULTANT OBJECT PROGRAM IS TS BE IN EXECUTABLE 
FORM, MUST BE A PROGRAM CARD OF THE FOLLOKING TYPE. 


COL.7 
PROGRAM NAME (FI, F2, ...3 CIMPLIES FORTRAN TY) 
FORTRAN [VY PROGRAM Nave (FL, F2, ...2 
FORTRAN U1] PROGRAM Nae CFL, F2, ...) 
MACKINE PROGRAM NAME (FL, F2, ...) CiMPLIES CLASS) 
ASCENTF PROGRAM Nave (FL, F2, ...) 


"NAME' MUST BE SEVEN OR FERER CHARACTERS (AND DIFFERENT FROM THE NAME OOF TRE FILE 
CONTAINING THE SOURCE CECKi. THIS ALLL BE THE NAME OF THE BINARY EXECUTABLE FILE. 


"FLT AND 'F2’ ARE ARGUMENTS ASSOCIATED RKITH [/0 DEVICES REQUIRED FOR THE PROGRAM 
AND ITS SUBROUTINES, w(tix, ' 


(2) SUBROUTINE OR FUNCTION CARD 


SUBROUTINES AND FUNCTIONS MAY FOLLOK THE END CARD OF THe MAIN PROGRAM OR BE COMPILED 
SEPARATELY, THE FIRST CARD OF A SUBROUTINE GR FUNCTION MUST GE OF THE FOLLORING FORM. 


COL.7 
SUBROUTINE Nave (A, B, 2.) 
FORTRAN T] SUGROUTINE NAME (A, 8, ...) 
FUNCTION NaME (a, 8, 2.03 
TYPE FUNCTION MAME (A, B, ...3 
MACHINE SUBROUTINE NAME (a, B, 10.3 
ASCENTF SUBROUTINE NAME (A, B, 1...) 


SUBROUTINES AND FUNCTION SUBPROGRAMS ARE COMPILED IN THE SAME MODE (THAT 1S, FORTRAN ly, 
FORTRAN TI, ASCENTF, OR MACHINE LANGUAGE) AS THE MAIN CODE, UNLESS SPECIFICATION IS MADE 
CN THE SUBROUTINE CaRD. 


"NAME' MUST BE SEVEN OR LESS CHARACTERS. 
"AT, "BY, ... ARE SUBROUTINE ARGUMENTS. 


SEC SECTION 204,.2.2, PAGE 6, 
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204.2. PROGRAM CONTROL INFORMATION 


(3) SEGMENT CARD 
THE FIRST CARD OF A LINK FOR A CHAIN JOB MUST BE OF THE FOLLOKING FORM. 


COL. 7 
SEGMENT NAME (FI, F2, ...) 


(SEE CHAPTER 3507 FOR NORE INFORMATION ON CHAIN JOBS.) 


204.2.2, 1/8 DEVICE ASSIGNMENTS 


THE ARGUMENTS FL, F2, ... MENTIONED UNDER THE DESCRIPTION OF THE PROGRAM CARD ASSOCIATE 
TAPE DESIGNATIONS (OR LOGICAL 1/0 UNIT NUMBERS) RITH DISC FILES, TAPES, TELETYPE, OR THE 
dd80C, EACH TAPE DESIGNATION (EXCEPT FOR 59 AND 106) THAT APPEARS IN THE PROGRAM MUST 

BE MENTIONED ON THE PROGRAM CaRD, PRECEDES BY THE CHARACTERS ’TAPE’, AND iS ASSIGNED A 
BVFFER WHICH AILL BE USED BY ITS CORRESPONDING 1/0 DEVICES. 


(1) DISC FILES 


AHEN A TAPE DESIGNATION IS TO REFER TO A DISC FILE, THE CISC FILE NAME MAY APPEAR ON THE 
PROGRAM CARD AND THE TAPE NUMBER {S$ EQUATED TO THE DISC FILE NAME. 


EXAMPLE: PROGRAM SAMPLE (HICCUP, TAPE! eHICCUP) 
CALL DEVICE (OHCREATE, 6HHICCUP, 50000) 


RRITE (i, 5) 4, 8, C 
5 FORMAT (3E10.2) 


u(2. 
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204.2, PROGRAM CONTROL INFORMATION 


IF THE DISC FILE NAME IS NOT DECLARED ON THE PROGRAM CaRD THEN IT MUST BE ASSIGNED IN THE 
PROGRAM 2(2)e", [F THIS OPTION iS USED, THEN THE DISC FILE MUST NEVER BE REFERRED TO BY ITS 


NaME BUT ONLY BY THE TAPE NUMBER. 


EXAMPLE: PROGRAM SAMPLE (TAPE3) 
CALL SEVICE (6HCREATE, 6HHICCUP, 50000) 
CALL ASSIGN (3, 6HHICCUP) 


WRITE (35, 53 A, B, C 
5 FORMAT (3610.2) 


NOTE: BEFORE PROGRAM EXECUTION, INPUT DISC FILES FOR USE WITH 4 READ’ STATEMENT CAN 
BE CREATED BY ANOTHER PROGRAM, YIA THE CARD READER, OR BY USING -NaB-. 


(2) TaPES 

WHEN A TAPE DESIGNATION REFERS TQ A PHYSICAL TAPE, THEN THE TAPE VAULT NUMBER MUST BE 
DECLARED ON THE PROGRAM CARD AND THE TAPE NUMBER ECUATED TO THE VAULT NUMBER. THE EQUAL 
SIGN (oe) MAY BE SURROUNDED BY BLANKS IF DESIRED, 


EXAMPLE: PROGRAM A&A (22999, TAPES022999) 
CALL DEVICE (4HTAPE, 5HZ2999) 
READ TAPE 9, & 


SEE CHAPTER 303. 
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204.2. PROGRAM CONTROL INFORMATION 


(3) TELETYPE AND ¢680C 


TF THE TAPE NUMBER 1S 59, INFORMATION RILL BE READ FROM OR WRITTEN ON THE TELETYPE. IF 
THE TAPE NUMBER IS {0O, INFORMATION HILL BE SENT TO THE ¢c8CC VIA THE -CRTBCD- ROUTINE 


wala, 


RKHEN THE TAPE NUMBERS 59 OR 100 APPEAR IN THE PROGRAM THEN "T“PE59’ OR 'TAPEICO’ 

MUST APPEAR ON THE PROGRAM CARD. WHEN VARIABLES ARE USED WHICH HAVE BEEN PRESET TO 59 OR 
{GG THE NAME "TAPESS’ OR 'TAPELOO' NEED NOT APPEAR ON THE PROGRAM CARD AND THE 

200! KORD BUFFER HILL NOT BE INCLUDED HKITH THE CODE. THIS BUFFER [S$ NOT USED FOR 
"TAPE59’ OR 'TAPEICO’. 


EXAMPLE: PROGRAM EXAMPLE (TAPE‘00) 
N= 59 
KRITE (N, 4) 


4 FORMAT ({8HTYPE IN INPUT DATA) 


CALL CRTLD (2HEA, 1, 1) 
CALL SETCH (1., 64., 1, 0, 0, 0, 0) 
KRITE (100, 5) 

5 FORMAT ({SHTITLE FOR CRTID) 


u(3is 


SEE CHAPTER 304. 
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204.2, PROGRAM CONTROL INFORMATION 


(4) READ AND PRINT STATEMENTS 


THE STATEMENTS ‘READ’ AND ‘PRINT’ MAY REFER TO THE TELETYPE. IF THE STATEMENTS 
APPEAR IN THE PROGRAM THEN THE NaMES "INPUT' OR ‘CUTPUT' OR BOTH MUST APPEAR IN 
THE PROGRAM CARD. 


EXAMPLE: PROGRAM TEST (INPUT, OUTPUT) 
PRINT 6 
6 FORMAT CL5HTYPE INPUT LINE} 
READ 7, A 
7 FORMAT (E10. 2: 


IF THE NAMES INPUT’ SR ‘OUTPUT’ ARE ECUATED TO UNUSED TAPE NUMBERS, THEN THE 
STATEMENTS ‘READ’ OR ‘PRINT’ HILL REFER TO DISC FILES BY THE NAME /INPUT/ AnD 


COUTPUT/. 

EXAMPLE: PROGRAM TEST2 (INPUT, TAPE2QeINPUT, OUTPUT, TaPE2teCUTPUT) 
READ 7, A 
7 FORMAT. vtE10.2) 
PRINT 6, A 


6 FORMAT (15H THE Value OF AsE10. 2) 


CAUTION: THE CHIP OUTPUT FILE /OUTPUTY =idix MUST BE CIVER Anay iSAY, BY MEANS OF UTILITY 
ROUTINE -OUT-) BEFORE THE FILE /OUTPUT/ IS USED FOR PROSLEM ANSAERS. 


(5) BUFFER SIZE 


THE BUFFER SIZE MAY BE SPECIFIED Si TRE -CHiP+ LNPUT LINE, 2(5i a ASSIGNED BY THE COMPILER 
s200t SCTAL ee OR ASSIGNED ON THE PROGRAM CARD BY ECVATING THE DISC FILE NAME OR THE 
ie 


TAPE VAULT NUXSER TO THE SIZE. THE MINIMUM BUFFER Sil2E FOR NOV-BUPFERED 1/79 1S 160i. THE 
MINIMUM FoR BUFFERED 1/3 1S ZERG. IF THE SUFFER SiZE iS 2 Sree BOTH ON THE PROGRAM 
CARD AND ON THE CHIP INPUT LINE THEN THE VALUE ON THE PROGRAM CARD TAXES PREFERENCE. 


EXAMPLES: PROGRAM TESTI (FILES fCOl, TAPELsFILE! 
TAPE 1 ALLL HAYE A SUFFER SiZe OF iGO! 


PROGRAM peste CASCCUP st, TAPE eH CCP, TAPED} 
TAPE | AILL HAVE A BUFFER SIZE OF ' ANS May BE USED ONLY AITH BUFFERED 
8. TaPe 2 MILL HAYE a BUFFER Si2e OF 2001 UNLESS A SMALLER YALUE IS 
ECIF.eD ON THE CHIP INPUT LINE. , 


a(d)e SEE SECOND ARGUMENT ON -CHIP- INPUT LINE, SECTION 204.35.1, PAGE 10. 
B(5)e SEE SIXTH ARGUMENT ON -CHIP> INPUT LINE, SECTION 204.3.1, PAGE 10. 
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204.35. COMPILATION FROM A TELETYPE 


204.3.1,. GENERAL OPERATING INSTRUCTIONS 


TO COMPILE A CODE FROM TELETYPE, THE USER TYPES: 


CHIPABCDEFGH/TY 


AHERE var F Be’, 


tet. or 'E’, "ee vGts And tHe ARE 


aRGUMENTS USED BY THE COMPILER, THESE ARGUMENTS MAY BE SEPARATES BY GLANKS OR COMMAS, BUT 
NOT BSTH. OROPCUT IS ALLOWED. COMMA-SEPARATION MUST BE USED FOR INTERNAL ORCPOUT. FOR 


EXAMPLE: 


CHIPABCDE/S/TY 


AND 


CHIP AB,,0,,,4 / TY 


ARE LEGITIMATE EXECUTE LINES FOR -CHIP-, BUT THE FOLLOWING IS NOT: 


CHIP AB D H/T Y 


THE ARGUMENTS ARE AS FOLLOKS: 


4 


RHERE: 


IS THE NAME CF THE ASCII INPUT FILE TS BE COMPILED. IF ‘A’ US 
OMITTED, THE NAME JS ASSUMED TO SE "INPUT’. 


TRE INPUT FILE MAY BE CREATED THROUGH THE CARD REATER OR SY USING -NAB-. 
IF THE CaR> REASER {S$ USED, THE INPUT DECK MUST SE PRECECED BY AN ID CARD 
OF THE FORM: 


1D 777777 PILNAME 


COLS. 1-2 CONTAIN THE LETTERS ‘30’. 
CL. SIS BLANK . 
COLS. 4-9 CONTAIN A SIX DIGIT USER NUMSER. 


ctu. 10 1S BLANK. 
COLS. f-17 CONTAIN A L-7 CHARACTER ALPHANUMERIC INPUT FILE NAME. 
COLS. 18-80 ARE BLANK. 


THE LNPUT DECK May CONTAIN A FORTRAN, ASCENTF OR MACHINE LANGUAGE <CLASS) 
MAIN PROGRAY RITH SUBROUTINES AND FUNCTIONS OR any COMBINATION THEREOF. 
NO DATA OR BINARY CARDS ARE ALLORED AS PART OF TRE INPUT DECK. 


1S THE FILE NAME FOR THE PRINTABLE OUTPUT. IF "8B" [IS OMITTED, THE 
NAME IS ASSUMED TO GE "OUTPUT’. TO SEE THIS LISTING ONE MAY USE -OUT- 
OR -NAB-. 


x(6is 
a(T)x 
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SEE SECTI 
SEE CHAPT 


ON 20+. 
ER 2 FO 


204.3. COMPILATION FROM A TELETYPE 


IF 'B’ {S ‘HSP’ OR 'OLP', THE FILE AILL BE ARITTEN ON THE HIGH 

SPEED (RADIATIEN] PRINTER TAPE OR PRINTED ON THE ON-LINE PRINTER, 
RESPECTIVELY. IF THE FIRST CARD [N THE INPUT FILE HaS THE CHARACTERS 
‘xD IN COLUMNS {-3, THE PRINTER IDENTIFICATION AILL BE TAKEN FREM 
COLUMNS 47-72 OF THIS 'x{D' CARD. OTHE@AISE, THE COMPILER HILL 4SK 

FOR THE "1D LINE’ FROM THE TELETYPE, THE LAST SIX CHARACTERS SHOULD 

BE 'BOXNHN', AHERE ‘NNN’ 1S THE USER'S OUTPUT BOX NUMBER, 


IS A LETTER OR NUMBER USED TO SPECIFY CERTAIN OPTIONS AT COMPILE TIME. IF 
"c’ 3S OMITTED, IT 1S ASSUMED Td BE 'S'. 


IFo'c’ TS 'L', & COMPLETE OCTAL LIST CF ALL TRE BINARY 
INSTRUCTIONS IS INCLUDED AITH THE PROGRAM IN THE OUTPUT LISTING (LONG LIST 
OPTION). 


IF 'c' $$ 'S', A SHORT LIST OF THE PROGRAM [S SSTAINED HITH THE 
OCTAL ADORESS OF EACH FORTRAN STATEMENT. IN EITHER CASE (°L’ OR 
"S'), A MEMORY MAP AND ERROR COMMENTS ARE LISTED. 


TE Coe THE INCOMPLETE MOCE CPTICN GS GIVEN. TRE T- MSDE 

MAY BE USED AHEN IT 1S DESIRED TO COMPILE A GROUP OF SUBROUTINES ANG /OR 
FUNCTI a AND OBTATN A BINARY FILE FOR EACH, EacH FILE CONSISTS OF Binary 
INSTRUCTIONS PLUS RELOCATION THFORMATION (THE FILENAME 1S TAKEN FROM Each 
HEADER CaRD ANS IS PRECEDED BY AN ASTERISK). 


ANY SUBROUTINE OR FUNCTION, AHEN COMPILED ALTHOUT A MAIN CODE, OR GROUPS 
OF SUCH RHICH CALL OTHER SUBROUTINES OR FUNCTIONS OR CONTAIN LABELED 
COMMS, MUST BE COMPILED JA TRE [-MICE. THE T-its S MOST GENERALLY USED 
FOR FILES RHICH ARE TO BE INSERTED IN A PRIVATE LIBRARY, x(6)s 


& 
Vea 
ce 
"oR 
BR 


' 
‘ 

LJ 
a 


FTC’ (US "4%, THE $60 FROST KORD CPTICN 6S GIVEN xi7lx, | THIS 

: es BE USED ONLY RHEN COMPILING SEGMENTS. SEGMENTS ARE NORMALLY 
MPILED WITHOUT 400 FROST "MINUS KORSS’ (as LINKS IN A CHAIN JOB}, 

fe THE "a TS NOT USED, THE SEGMENT HILL SOT HAYE THE ASDITIONAL 400 

KORDS. IF THe "4’ TS USED, 400 MINUS ACRES ARE ~CCED TO THE BINARY 

FILE, SEGMENTS COMPILED IN THIS MANNER MAY BE EXECUTED AS PROGRAMS. 


1s a OLTAL Sizt FOR THE COMPILER (CONTAINED IN FILE /+RUN/ AT COMPILE 
TIMED. TF "D' TS OMITTED, IT 1S ASSIGNED A SIZE OF 46,000 (OCTAL}, A 
aa SIZE FOR SMALL CODES. 


3.2, PAGE 15, FOR MORE DETAILS. 
RA DESCRIPTION OF THESE 400 ‘MINUS KORES’. 


i 


CAUTION: 


s(Bi% 
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204.35. COMPILATION FROM A TELETYPE 


THE COMPILER LENGTH MUST BE LARGE ENOUGH, AT COMPILE TIME, TO ACCEMMSOATE 
THE COMPILER, ALL BtNaRY astRUCTI SNS GENERATED BY THE COMPILER, AnD ALL 
LABELED COMMON BLOCKS. AT LOAD TIME, TT MUST ACTOMMODATE THE LOADER and 
THE ENTIRE BINARY FILE (EXCLUDING BLANK AND NUNSERED COMMON AND BUFFERS. 
ONE SIZE IS USED FOR BITH SITUATIONS. 


TO ILLUSTRATE THIS, aSSUNE THE SIZE CF AN CBVECT PROGRAM TS 45,00C AeRIS 
CEXCLUSING Blaik AND "NoMBERE CUS es 2nd BUFFERS}. ALSS, ASSJME THAT THE 
PART 73 BE LOADED FROM TEE LIBRARY AT LOAD TIKE [S$ 25,000 hORDS. ThE 
COMPILER SIZE AT COMPILE TINE © 40,000 AORDS (COMPILER EXCLUDING TABLES] + 
20,0006 RORTS (BinaRY CODE GENERATED BY THE COMPILER INCLUDING vere 
COMMER! © 60,000 KURDS, THE SIZE RECUIRED AT LOAD TIME = 10,000 &KORDS 
(LOADER? + 45,000 WORDS ENTIRE BEaRY FILE, EXCLUDING BLANK An NUNBERED 
COMMON AnD BUFFERS] © 55,000 AcRES. IN THIS CaSE 'D" SHOULD SE 
APPROXIMATELY 65,000 AORDS (GREATER THAN THE SiZE RECUIRED AT COMPILE oR 
LOad TIME) 


IS THE OCTAL LENGTH OF THE OBJECT PROGRAM FILE, lr 'E’ $$ OMITTED, IT 
RILL BE THE SAME AS 'O’, 


THE FILE Na i TVEN TO THE BthaRy COLE IS TAKEN FROM THE PROGRAM OR 
SEGMENT CAR x8) . FILE NAMES GENERATED FROM LeMODE COMPILATIONS ARE 
DESCRIBED UNDER C, abdie. 


THE FILE LENGTH 1S EQUAL TO TRE LENGTH CF OTHE COMPILED COCE, PLUS THE 
LENGTH CF THE (NEEDED LiGRARY ROUTINES, PLUS THE LENGTH OF BLANK and 
NUMBERED COMMON, PLUS THE LENGTH OF all i/o BUrFERS. oth TRE ILLUSTRATION 
UNDER 'D', ABOVE, ASSUME BLANK AND GUMBERED COMMON TAKE 10,000 RERDS 
t + 
I 


AND TOTAL 1/0 BUFFER LENGTH TS 4022 WORDS. THEN = 20,000 =5,000 + 
10,006 + 4022 = 60,000 SCTAL WORDS (APPROXIMATELY). FOR THE I[-MODE, THE 
PROGRAM LENGTH NEED BE ONLY AS LONG AS THE LONGEST SUBROUTINE. 


IS THE OBJECT age 1/0 BUFFER LENGTHS (OcTAL). IF 'F" TS OMITTED, 

IT 1S SET TE 2001, C OPTIMUM STILE FOR EFFICIENT 1/76. TO SAvE SPACE, 
THE USER MAY REDUCE ve S$ TO 100i, TRE MINIMUM SIZE. iF AN 'F" OF 
LESS THAN (0G1 1S RECUESTED, fOOt (OCTAL) WERDS ARE ASSIGNED. 


IS THE OBJECT PROGRAM (BLANK AND NUNSERED) COMMON LENGTH (COCTALIL IF 
'G' IS OMITTED, IT IS SET EQUAL TO THE AMOUNT REQUIRED FOR THE MAIN 
PROGRAM BEING COMPILED. THIS DOES NOT AFFECT LABELED COMMON. 


THIS NAME MUST NOT BE THE SAME AS THE NAMe iN ‘A’, 
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204.3. COMPILATION FROM A TELETYPE 


H oS THE LINE LIMIT (COCTAL) FOR THE PRINTABLE OUTPUT FILE. IF ‘H' [§ 
OMITTED, THE LINE LIMIT IS SET TO 4500 (OCTAL) AND THE OUTPUT FILE Hint BE 
71,400 OCTAL WORDS (4500a14 + 2000), 


FOR INSTRUCTIONS ON COMPILING KITH A PRIVATE LIBRARY, SEE SECTION 204.3.5, PAGE 16. 
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204.35. COMPILATION FROM A TELETYPE 


EXAMPLES: CHIP INP / T Y 


INPUT FILE 1S NAMED ‘INP’. 

CUTPUT FILE IS NAMED 'OUTPUT’. 

LENGTH OF COMPILER IN CORE IS 46,000 SCTAL. 

LENGTH OF BINARY EXECUTABLE OUTPUT FILE [S 46,000 OCTAL, 


CHIP INPX,LIST,L,55000,50000,!001,,0000 / TV 


INPUT FILE 1S NAMED "INPX' 
OUTPUT FILE IS WANED "LEST’, aD ALLL CONTAIN 
A LISTING CF ALL INSTRUCTIONS IN OCTAL. 
LENGTH OF COMPILER 1S 55,000 OCTAL, 
LENGTH CF BINARY EXECUTABLE OUTPUT FILE iS 36,0600 OCTAL. 
BCD BUFFER LENGTH !S {G01 OCTAL. 
OUTPUT FILE SIZE iS 6006 SCTAL LINES. 


°RUN- KILL TELL THE USER HOR MUCH COMPILER SPACE AND HOH MUCH JS SPACE nAS UNUSED. TRIS 
WILL ENABLE THE USER TO MINIMIZE THE RECUIREMENTS IN FUTURE COMPILATIONS, Al, waxhuxx 
GLAGHESTIC OR "PROBLEM ERRGR 260’ USUALLY MEANS THAT NOT ENCUGH SPACE waAS ALLOWED FOR 

THE COMPILER -RUN- (THAT 1S, FILE /#RUN/), AN wxauSiuxx DIAGNOSTIC MEANS COT EXOSUGK SPACE 
ALLOHED FOR OBJECT PROGRAM, xi9)s 


NOTE: EXECUTION OF THE BINARY FILE HAY BE ACCOMPLISHED BY STARTING THE BINARY FILE as A 
CONTRELLEE FROM THE TELETYPE. TO EXECUTE THE FILE, IT SHOULD SE COPIED BEFORE ITS FIRST 
EXECUTION, GR -CHANGE- *(iG)" SHIULD BE CALLED AS THE FIRST EXECUTABLE STATEMENT IN The 
PROGRAM. EITHER PROCEDURE KILL RESERVE THE ORIGINAL STATUS OF THE BINARY FILE, 


u(Gixz 


Stt SECTION 204.4.2, PaGE 19. 


B(iOls SEE CHAPTER 306. 
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204.3. COMPILATION FROM A TELETYPE 


SUBROUTINES AND FUNCTICNS KHICH ARE REPEATEDLY COMPILED, BUT GST CHANGED, MaY BE COMPILED 
HT HSUr THE MAIN PROGRAM AND KEPT IN A PRIVATE LIBRARY x(i tix TO AVOID RECOMPILATIONS EACH 
TIME A NER EXECUTABLE BINARY FILE 1S GENERATED. NOTE THaT THE CHIPPEWA COMPILER DOES NCT 
PRODUCE RELECATASLE BINARY CARDS. 


INPUT TO THE COMPILER IS FROM AN ASCII DISC FILE CONTAINING ONE OR MORE SUBROUTINES AND/OR 

FUNCTIONS TO BE COMPILED. (THE FIRST ROUTINE CANNOT BE A FUNCTION.) SUBROUTINES COMPILES 
IN THIS MANNER MUST BE COMPILED IN THE INCOMPLETE (1) MOGE (THAT IS, THE TRIRD ARGUMENT ON 
THE -CHIP- EXECUTE LINE MUST BE AN ‘'I') IF THEY REFER TO OTHER SUBROUTINES OR 
FUNCTIONS, IF THEY HAYE LABELED COMMON, OR IF THERE IS MORE THAN ONE SUBROUTINE IN THE 
PIE. 


A PRINTABLE LISTING OF ALL THE SUBROUTINES iS HRITTEN TN Sue OUTPUT FILE. EACH SUBROUTINE 
COMPILED IN THE [*MODE HILL BE ARITTEN INTO A SEPARATE RELOCATABL E BINARY FILE. THE NAME 
OF EACH OF THESE FILES WiLL S82 THE SUBROUTINE Nase PRECEDED BY AN ASTERISK. THE 
SUBROUTINE MUST BE PUT INTO THE PRIVATE LIBRARY FILE UNDER THIS NAME. 


ALL SUBROUTINES AHICH CALL OTHER SUSROUTINES OR USE OTHER FUNCTIONS MUST BE COMPILED IN 
THE [-MODE, UNLESS EVERYTHING IS COMPILED TOGETHER, INCLUDING THE MAIN CODE. IF THEY ARE 
NOT, A xuaQfaxx ERRGR MAY RESULT HHEN TRYING TO USE THEM, x (12) 
EXAMPLE: CONSIDER THE (NPUT FILE ‘INP’ CONTAINING THE FOLLOWING: 

SUBROUTINE A (1) 

END 

SUBROUTINE X (A, 8) 

END 

FUNCTION BY (uJ) 


END 


w(1tix SEE CHAPTER SO! FOR A SESCRIPTION OF PRIVATE LIBRARY USAGE. 
a(i2)™ SEE SECTION 204.4.2, PAGE 19. 
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204.3. COMPILATION FROM A TELETYPE 


THE CHIP INPUT LINE [S: 


CHIP INP,,D 7 1 1 


HHERE: 
INP 1S THE NAME OF THE ASCI! INPUT FILE CONTAINING A,X,BY 
OUTPUT IS THE NAME OF THE LISTABLE OuTPUT FILE 
I MEANS COMPILE IN INCOMPLETE MODE 
RESULTS: 
xh IS THE NAME OF THE BINARY RELOCATASLE FILE FOR SUBRUUTINE A 


xX tS THE NAME OF THE BINARY RELOCATABLE FILE FOR SUBROUTINE X 
sBY IS THE NAME OF THE BINARY RELOCATABLE FILE FOR FUNCTION BY 


204.3.35. COMPILING AITH A LIBRARY 


ee ee rr) 


RHEN COMPILING A NEH CODE AHICH USES SUBROUTINES IN A PRIVATE LIBRARY, THE NAME OF THE 
LIBRARY 1S ENCLOSED IN PARENTHES!S AND 1S THE FIRST ARGUMENT IN THE CHIP EXxeCUTE LINE, 
PRECEDING ARGUMENT '"A’, DESCRIBED ON PAGE 10. 


EXAMPLE: 
CHIP (LIBPRY) INP,,,70000,50600,1000 / T ¥ 


THE NAME OF TRE PRIVATE LIBRARY iS "LIBPRY’. 
THE NAME OF THE INPUT FILE IS " INP’. 

THE COMPILER SIZE iS 70,000 OCTAL. 

THE PROGRAM SIZE IS 30,000 OCTAL, 

THE OCD BUFFER SIZE 1S 100! OCTAL. 


AFTER THE MAIN PROGRAM AND OTHER ROUTINES IN THE INPUT FILE HAVE BEEN COMPILED AND LOADED, 
THE PRIVATE LIBRARY HILL BE SEARCHED FOR NEEDED ROUTINES. FINALLY, ANY REMAINING ROUTINES 
WHICH ARE STILL NEEDED WILL BE SEARCHED FOR IN THE PUBLIC FILE /CLIB/ (SEE CHAPTER 301}, 


THE CHIPPEKA COMPILER CIC*LTSS-204-ED. 1 8/31/68 PAGE 


(2) 


(3) 


(4) 


(5) 


204.4, RESULTS OF COMPILATION 


FORTRAN STATEMENTS 


IN THE CASE OF A SHORT LIST, EACH FORTRAN STATEMENT IS LISTED AITH A NUMBER ON 
THE LEFT ASSOCIATED WITH EACH STATEMENT, THIS NUMBER 1S THE APPROXIMATE OCTAL 
LOCATION IN THE BINARY OUTPUT FILE CF THE FIRST INSTRUCTION GENERATED BY THAT 
PARTICULAR FORTRAN STATEMENT. =(13)% 


IN THE CASE OF A LONG LIST, EACH FORTRAN STATEMENT IS LISTED AND BENEATH IT THE 
OCTAL INSTRUCTIONS FOR THAT STATEMENT. 

FUNCTION ASSIGNMENTS 

A LIST OF EACH ARITHMETIC STATEMENT FUNCTION AND ITS APPROXIMATE LOCATION IN THE 
BINARY OUTPUT FILE IS GIVEN. 

STATEMENT AND VARIABLE ASSIGNMENTS 

FOLLOAING EACH SUBROUTINE OR MAIN CODE IS A LIST OF STATEMENT ASSIGNMENTS 4h 
VARIABLE ASSIGNMENTS, THESE ARE THE BEGINNING LOCATIONS FOR EACH NUMBERED 
STATEMENT AND THE LOCATION OF EACH VARIABLE. 

SUBROUTINE ASSIGHMENTS 

THIS LIST GIVES THE ENTRY POINT FOR EACH SUBROUTINE CALLED FROM TRE PUBLIC 
LIGRARY /CLIB/ OR FROM YOUR PRIVATE LIGRARY. AKEN A SUSROUTINE 1S ENTERED BY 
THE PROGRAM, A RETURN ADDRESS IS STORED IN THE ENTRY LOCATION. THUS Otc CAN 
DETERMINE THE LAST POINT IN THE PROGRAM FROM WHICH THE SUBROUTINE kaS CALLED. 


BLOCK ASSIGNMENTS 


THIS GIVES THE LOCATION OF THE FIRST WORD OF EACH CCKMON BLOCK. THE OTHER 
YARTABLES RITHIN THE COMMON BLOCK ARE IN ASCENDING LOCATIONS. 


eC 3)" A SAMPLE OUTPUT LISTING KITH THE SHORT LIST OPTION IS GIVEN IN APPENDIX 8, PAGE 62. 
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(6) 


(7) 


(8) 


(9) 


(10) 


204.4. RESULTS OF COMPILATION 


BUFFER ASSIGNMENTS 


THiS GIVES THE STARTING LOCATION FOR EACH GUFFER. EACH DIFFERENT TAPE 


ASSIGNMENT REQUIRES A BUFFER. 


LOCAL LENGTH (O¢TAL? 


THIS IS THE LENGTH OF THE BINARY CODE EXCLUDING BLANK AND NUMBERED COMMON AND 


BUFFER ASSIGNMENTS. 


COMMON LENGTH <OCTAL} 


THiS 1S THE LENGTH OF BLANK AND NUMBERED COMMON, 


BUFFER LENGTH (OCTAL} 


THIS 1S THE TOTAL LENGTH OF ALL BUFFERS. 


UNUSED SPACE (OCTAL) 


THIS GIVES THE AMOUNT THE COMPILER SIZE MAY BE REDUCED AND THE AMOUNT THE BINARY 


" PROGRAM LENGTH MAY BE REDUCED ON THE -CHIP- INPUT LINE. 


) 


VARTABLE NAME Maps 


TRE COMPILER HILL OENERATE VARIABLE NAME NAPS FOR SUBROUTINE OR FUNCTIONS LOADED 
FROM A PRIVATE LIBRARY, YO GET VARIABLE NAME MAPS FOR ROUTINES IN PUBLIC FILE 
/CLIB/, COMPILE WITH LIBRARY NAME /CLIB/ x(t4)a, 


e(i4)e SEE SECTION 204.5.3, PAGE 16. 
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204.4.2. ERROR COMMENTS 


TN THE GUTPUT FILE PRODUCED DURING COMPILATION, THO-CHARACTER FORTRAN ERROR PRINTOUTS if 
“HE FORM xxxACaxx (KHERE AC INDICATES THE TYPE OF ERROR) FOLLON STATEMENTS KHICH ARE 
INCORRECT. NOTE THAT ANY ERROR SO FLAGGED 1S CONSIDERED FATAL, AND NO OBJECT CODE HILL BE 
PRODUCED. 


MISSING STATEMENT NUMBERS ARE LISTED AT THE END OF THE MAIN PROGRAM OR SUBPROGRAM HKITHIN 
RHLCH THEY OCCUR AND ARE FOLLOWED BY xxxNSxxx, 


MISSING SUBROUTINES ARE LISTED ON THE TELETYPE, aND USUALLY CAUSE A MEMORY OVERFLOW ERROR 
waxM)xxx, (THIS MAY BE THE RESULT CF NOT DIMENSIONING A VARIABLE.) 


oNaB- MAY BE USED TO LIST ERRORS ON THE TELETYPE. 
EXAMPLE: 


NAB OUTPUT / T Y 

Fataxux'! 
aHERE a TS A SPACE, FOLLORED BY 'T ALL’, HILL GIYE THE FORTRAN 
LINES CONTAINING THE ERRORS, 


T Nel 2 ACLL LIST TRE FORTRAN STATEMENT INE 
TAGNOSTIC ('N" IS THE LOCATION OF ON 
OBTAINED ABOVE). 


RROR AND THE THO-CHARACTER 
t OF THE xmm FIELDS, AS 


THE UNUSED COMPILER SPACE AND THE UNUSED PROGRAM SPACE ARE LISTED ON THE TELETYPE. IT {S$ 
THEREFORE POSSIBLE CN FUTURE COMPILATIONS TO KEEP THE COMPILER SIZE AND THE OBVECT CODE 
SIZE TO A MINIMUM, 


THE CHIPPEKA COMPILER DOES NOT SCAN FORMAT STATEMENTS FOR ERRORS. MISCOUNTS [Kh HOLLERIT 
TEXT WILL NOT BE FOUND DURING COMPILATION. THE DIAGNOSTIC IN THIS CASE HILL USUALLY OCCUR 
aT EXECUTE TIME. 


THE FOLLOWING IS 4 LIST CF THE TRO-CHARACTER ERROR COMMENTS AID THEIR MEANINGS. FOR THE 
MOST PaRT, TRE RORD FORMAT’ RITHIN THE EXPLANATION OF AN ERROR DIAGNSSTIC REFERS TO 

THE FORM (QR ARRANGEMENT] OF A PARTICULAR FORTRAN EXPRESSION, AND NOT TO A FORMAT 
STATEMENT AS SUCH. FOR EXAMPLE, 


TFA) 3, 4 


TS AN EXPRESSION FORMAT ERROR, SINCE OROP-THROUGH 'IF’S ARE NOT ALLOWED. 
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NUMBER OF ARGUMENTS IN A SUBROUTINE REFERENCE DIFFERS FROM A PREVIOUS REFERENCE. 
FORMAT ERROR mie LIST OF ARGUMENTS. 

FORMAT ERROR IN AN ‘ASSIGN’ STATEMENT. 

FORMAT ERRGR IN THE DESIGNATION OF A BOOLEAN CONSTANT. 

A BINARY RELOCATABLE SUBROUTINE HAS THE RRONG FORMAT, 

A LABELED BLOCK OF COMMON EXCEEDS THE BLOCK LENGTH ALREADY ESTABLISHED. 
FORMAT ERROR IN 4 B-TYPE BOOLEAN STATEMENT. 

VARIABLE NAME IS DUPLICATED IN COMMON, 

COMMON-ECUIVALENCE ERROR, 

FORMAT ERROR IN A ' CALL’ STATEMENT. 

FORMAT ERROR IN A ‘COMMON’ STATEMENT. 


MORE THAN NINETEEN CONTINUATION CARDS, OR ONE CARD APPEARS {(N AN ILLOGICAL 
SEQUENCE, 


COMMON OVERFLOR. A SUBROUTINE HAS MORE COMMON THAN THE MALN PROGRAM, 

(YF waxCQaxx OCCURS FOR EVERY SUBROUTINE AND ONCE MORE AT THE END OF THE ODE, 
THIS USUALLY MEANS THAT TOO SMALL A COMPILER SIZE KAS REQUESTED ON Trt -CHIP- 
INPUT LINE.) 

MISSING STATEMENT NUMBER ON A 'CONTINUE' STATEMENT. 

DUPLICATE DUMMY ARGUMENTS APPEAR IN A FUNCTION-DEFINITION STATEMENT. 

FORMAT ERROR IN THE EXPRESSION OF A DECIMAL CONSTANT. 

DUPLICATE NAME IN A ‘DIMENSION’ STATEMENT. 

A FUNCTION NAME HAS OCCURRED AS THE NAME OF ANOTHER FUNCTION. 


FORMAT ERROR IN A 'DIMENSTION’ STATEMENT. 


FORMAT ERROR IN A 'DO’ STATEMENT. 
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204.4. RESULTS OF COMPILATION 
DUPLICATE STATEMENT NUMBER, 


DATA RANGE ERROR -- A DATA STATEMENT MAY NOT BE USED TO READ DATA INTO BLANK OR 
NUMBERED COMMON. 


MISSING ‘D8’ STATEMENT NUMBER. 

FORMAT ERROR IN A 'GATA’ STATEMENT. 

EQUIVALENCE CONTRADICTION ERROR. 

END OF FILE IS READ BEFORE LAST ’END’ CARD. 

IMPROPER MODE OF THE BASE OR EXPONENT OF AN INDICATED EXPONENTIATION. 


EQUIVALENCE 


TATEMENT, 
CANNOT DETERMINE TYPE OF STATEMENT. 
MISSING STATEMENT NUMBER ON A ‘FORMAT! STATEMENT. 
FORMAT SPECIFICATION ERROR, 
ERROR IN A TYPE STATEMENT, 
FORMAT ERROR IN A 'GO TO’ STATEMENT, 
ILLEGAL ‘DO’. 
ERROR IN 'IF’ STATEMENT (DROP-THROUGH IS NOT ALLOKED). 
ERROR IN INDEXED LIST OF AN 1/9 STATEMENT, 
ILLEGAL TRANSFER. 
"NAMELIST’ ERROR, 
MORE ARGUMENTS ARE REFERENCED THAN A STANDARD LIBRARY SUBROUTINE USES. 


ERROR IN AN 1/6 LIST. 


Ma 


THE CHIPPERKA COMPILER CIC-LTSS-204-E0.1 8/3! /63 Pas 


204.4. RESULTS OF COMPILATION 


aN ARGUMENT OF A SUBROUTINE OR FUNCTION HAS BEEN MISUSED IN AN EQUIVALENCE 
STATEMENT. 


MACHINE CONSTANT ERROR. 

MACHINE DUPLICATE TAG. 

MACHINE FORMAT ERROR, 

MACHINE LOCATION TAG ERROR. 

COMPILER FIELD LENGTH, AS TYPED IN ON TRE -CHIP- INPUT LINE, 1S TOO SHORT, 
MISSING SUBROUTINE. 

MISSING STATEMENT NUMBERS, 

MACHINE TAG DEFINITION ERROR, 

NAME CONFLICT OF A SUDROUTINE OR FUNCTION, 

ERROR iN FORMAT ON THE PROGRAM CARD, 

REFERENCE TO AN ARRAY OCCURS BEFORE ITS "DIMENSION’ STATEMENT, 
UNEQUAL NUMBER OF OPEN AND CLOSED PARENTHESES. 

FORMAT ERROR [N A 'RETURN’ STATEMENT. 

FORMAT ERROR [N & SUBSCRIPT OF AN ARRAY, 

FORMAT ERROR IN A ‘SENSE’ STATEMENT. 


THE REQUIRED LENGTH OF THE SBVECT CODE, AS SPECIFIED CN THE -CHIP- INPUT LINE, IS 
TOD SHORT, 


THE COMPILER FIELD LENGTH OR The OBVECT CODE FIELD 


LENGTH, AS TYPED IN ON THE 
-CHIP> INPUT LINE, [S NOT LARoe ENOUGH TO LOAD ALL TH 


E NEEDED LIBRARY SUBROUTINES. 
ERROR IN THE STATEMENT-LABEL FIELD. 
ERROR KHERE A STATEMENT NUMBER SHOULD APPEAR, 


FORTRAN SYSTEM ERROR, 
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204.4. RESULTS OF COMPILATION 
MORE THAN SIXTY ARGUMENTS IN A SUBROUTINE LIST OR A SUBROUTINE REFERENCE. 
ERROR IN A TYPE STATEMENT. 


UNIDENTIFIED-ARRAY ERROR, 


A REFERENCE TO AN 1/0 FILE OR TAPE THAT KAS NOT LISTED IN THE PROGRAM CARD, 


UNREFERENCED BINARY SUBROUTINE. 
VaRTABLE NAME CONFLICT. 
VARIABLE DIMENSIONED ARRAY ERROR, 


ERRER IN AN EXPRESSION. 


PASE 23 
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264.4. RESULTS OF COMPILATION 
THE FOLLOKING ERROR COMMENTS MAY BE PRINTED ON THE TELETYPE DURING EXECUTION: 


COMPILER FIELD LENGTH TOS SMALL FOR LOADING. RESTART CHIP 
CAN'T GIVE (FILENAME: TO USER 999999. USE OUT OR GIVE. 


oRUN- GIVES THIS MESSAGE WHEN THE OLP OR HSP OPTIEN IS USED «AND THE FILE 
CANNOT BE GIVEN TO USER 999999. 


CAN'T GPEN LIB FILE (FILENAME) 


-RUN- GIVES THIS MESSAGE IF /CLIB/ OR PRIVATE LIBRARY FILE CANNOT BE 
OPENES. 


CIO ARGUMENT ERROR, 


“RUN- GIVES THIS MESSAGE RHEN ONE OF THE COMPILER’S [/0 BUFFER LIMITS iS 
CXCEEDED. THE USER SHOULD RESTART. 


CANNOT CREATE FILE (FILENAME), 


“RUN- GIVES THIS MESSAGE IF THE BINARY FILE CANNOT BE CRE 


ATED. -RUN- TRIES 
TO CPEN, DESTROY AND RECREATE IF THE FIRST ‘CREATE’ CALL Fal 


LS. 
CANNOT OPEN FILE (FILENAME). 


*RUN- GIVES THIS MESSAGE IF ANY FILE TRYING TS BE ACCESSED BY -RUN- CANNOT 
BE OPENED. 


NO MORE MINUS KORDS, 


*RUN- GIYES THIS MESSAGE iF THE COMPILER USES ALL AVAILABLE MINUS WORECS 
RHILE CREATING BINARY FILES. 


BAD ASCII FILE. NO END OF FILE. 


“RUN- GIVES THIS MESSAGE IF AN ERROR OCCURS RAILE READING FROM THE ASCII 
INPUT FILE. 


GOB 10 ERROR NUMBER (NO.) AHILE WRITING IN (FILENAME), 


“RUN> GIVES THIS MESSAGE IF IT HAS TROUSLE ARITING EITHER THE BINARY OR 
OUTPUT FILE. 
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204.5.1, FORTRAN STATEMENT FORMAT 


THERE ARE THREE TYPES OF CODING LINES: 


TYPE COL. CONTENT 


STATEMENT 1-5 STATEMENT NUMBER (ALPHANUMERIC 
STATEMENT LABELS ARE NOT ALLOHED). 


H D, t, B, F [FORTRAN [i]. 

6 : BLANK OR ERS. 

7-72 FORTRAN STATEMENT. 

73-80 IDENTIFICATION (IGNORED BY THE 


COMPILER). 
CONTINUATION 1-5 BLANK, 


6 FORTRAN CHARACTER CTHER THAN 
BLANK OR ZERO. 


7-72 CONTINUED FORTRAN STATEMENT. 
73-80 IDENTIFICATION FIELD. 
COMMENT ! CHARACTER C, ¥, OR S, 


204.5.2. LIST OF AVAILABLE FORTRAN STATEMENTS 


AS NOTED IN THE INTRODUCTION, -CHIP> AILL COMPILE EITHER FORTRAN I] OR FORTRAN [LY 
PROGRAMS. THE USER SHOULD REFER TS [1] FOR DETAILED LANGUAGE DESCRIPTIONS. THIS SECTION 
MERELY LISTS THe AVAILABLE LANGUAGE STATEMENTS. 


PAGE 


THE CHIPPEXA COMPILER 


204.5. 


(1) SUBPROGRAM STATEMENTS: 


ENTRY POIATS 


INTERSUBROUTINE 
F 


TRANSFER STATEMENTS 
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AVAILABLE FORTRAN LANGUAGE 


SEGMENT NAME (FI,F2,...1 

PROGRAM NAME (F1,...,FR) 

FORTRAN [Y PROGRAM HANE (FL,... ,7N) 
FORTRAN [i PROGRAM NAME (Fi... PN! 
MACHINE PROGRAM NAME (F1,...,°NI 

ASCENT PROGRAM NAME (FI,...,FN) 
SUBROUTINE NANE (P5,... Pl 

FORTRAN TY SUBROUTINE NAME (Pf,....PN) 
FORTRAN [] SUBROUTINE NaME (P1,....PN 
MACHINE SUBROUTINE NAXE OPE... PN) 
aSCENTF SUBROUTINE Nase (Pi,... ,PN) 
FUNCTION Name (Pt... .PN) 

TYPE FUNCTION HANE (PT,....PN) 

FORTRAN TY FUNCTION NAME (PU... ,PMi 
FERTRaAN LP FUNCTION WaME (P1.....PNI 
FORTRAN TY TYPE FUNCTION HAME (PE,...,PN? 
FORTRAN i] TYPE FUNCTION NAME (PI,...,PN) 


EXTERNAL NAMEL,NANE2,... 
NAMEL,NANE2,... (FORTRAN [1 MODE] 


CALL NAME 
aLL NAME (Pi,...,PNI 
RETURN 


(2) DATA DECLARATION AND STORAGE ALLOCATIONS: 


TYPE DECLARATION 


STORAGE ALLOCATION 


COMPLEX LIST 

DOUBLE PRECISION LIST 
OCUBLE LIST 

REAL LIST 

INTEGER LIST 

LOGICAL LIST 


DIMENSION Vi,V2,...,VN 

COMMON /NAME/ LIST 

ECUIVALENCE (A,8,...1,CAI,Bf,...).. 
DATA VI/LIST/, ¥2/LIST/, 

BLOCK DATA 
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(3) ARITHMETIC STATEMENT FUNCTIONS: 


NAME (P1,P2,...PM) » EXPRESSION 


(4) SYMBOL MANIPULATION AND CONTROL: 


REPLACEMENT Ase ARLTHMETIC 
D AcE {FORTRAN It MODE) 
! AsE {FORTRAN [I MODE] 


Lee LOGI CAL/RELATI ONAL 
MeE MASKING 


8 Nef {FORTRAN I! MODE) 
INTRAPROGRAM GO TOL C'u’ I$ A LABELI 
TRANSFERS Gd v9 M ['M’ IS A YaRI ABLE] 


GO TOM, (N,...NMi 

G3 TO iNt,...,5™), 1 

IF CAL NE,N2,N3 

IF (Ld Nt, t2 

IF CL) <STaTENENT> 

JF DIVIDE CHECK NI ,N2 

IF CENSFILE TINL,N2 

IF CEOF, INT N2 

JF ACCUMULATOR OVERFLOW NY, N2 
TF QUOTIENT OYERFLOA NI,N2 


(5) LOUP CONTROL: 
DONT = Mt,42,83 


(6) MISCELLANEOUS PROGRAM CONTROLS: 
-SSIGN S TO M 
CONTINVE 
PAUSE 
PAUSE N 
STOP 
STOP N 


(7) 1/0 FORMAT: 
FORMAT (SPEC1,SPEC2,...) 


PAGE 
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204.5. AVAILABLE FORTRAN LANGUAGE 


(8) $70 STATEMENTS: 
READ N, L 
PRINT N, L 
READ (1, NIL 
READ [hPUT TAPE [, HN, L 
WRITE Gt, NEL 
HRITE OUTPUT TAPE I, N, L 
READ (1) L 
READ TAPE J, Lb 
RRITE (1) Lb 
WRITE TAPE $, L 
READ (i, X} 
RRITE (1, X) 


1/0 TAPE HANDLING END FILE I 
READ | 
BACKSPACE 1 


BUFFERED 1/0 BUFFER IN (T,MICACKI) ,B(K2)) 
BUFFER OUT CL,M) (ACK) ,B(K2)) 
TFCUNIT, J) NE,N2,N3,N4 
IFCLOCKECK 1) NIVN2 
K«LENGTHiL) 


(9) PROGRAM AND SUBPROGRAM TERMINATION: 


END 


204.5.3,.  INPUT/OUTPUT STATEMENTS 


IN THIS SECTICN A NUMBER OF THe J/0 STATEMENTS LISTED ABOYE ARE DESCRIBED IN DETAIL. 
PLEASE REFER ALSO TO CHAPTER 305. 
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204.5. AVAILABLE FORTRAN LANGUAGE 


READ ++ TELETYPE OR DISC INPUT 
SUMMARY: TO READ INPUT FROM THE TELETYPE OR FROM A DISC FILE. 
FORM: READ N, L 


WHERE: ON FORMAT NUMBER, 
L LIST 


RESTRICTIONS: IF THIS STATEMENT 1S USED, THE NAME "INPUT’ MUST « 
CARD e(15)%, JF THE NAME ‘INPUT’ IS NOT EQUATED TO 
THE INPUT KILL BE FROM TELETYPE. 


Pew em ew voce ces merece en es ee ere ere cesecaewreenescese es eeee ee meter sense nees SeeerertatesenconwrereeTene 


RON THE PROGRAM 
TAPE NUMBER, THEN 


PRINT -= TELETYPE OR DISC OUTPUT 
SUMMARY: TO OUTPUT ON THE TELETYPE OR INTO A DISC FILE. 
FORM: PRINT N, L 


HERE: ON FORMAT NUMBER 
L LIST 


RESTRICTIONS: IF THIS STATEMENT 1S USED, THE NAME "QUTPUT’ MUST APPEAR ON THE PROGRAM 
CARD. IF THE NAME 'SUTPUT’ IS NOT EQUATED TO A TAPE NUMBER, THEN TRE 
OUTPUT KILL BE TS TELETYPE. 


EXAMPLE: 
PROGRAM EXAMPLE (INPUT, OUTPUT) 
PRINT [ 
l FORMAT (IBHTYPE INITIAL VALUE) 
READ 2, A 
2 FORMAT (FI5, 8) 


e({5)8 SEE SECTION 204.2.2, PAGE 6. 
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SUMMARY; 


FORM: 


WHERE; 


REMARKS; 


204.5. AVAILABLE FORTRAN LANGUAGE 


READ/ARITE -- FORMATTED BCD 170 


TS READ OR KRITE BCD TAPES, ASCII DISC FILES, OR TO COMMUNICATE WITH THE 
TELETYPE. 


READ INPUT TaPE 1, N, L 
READ (1, NIL 


ARITE OUTPUT TAPE [, N, Lb 
RRITE (1,NI OL 


TAPE UNIT NUCBER 
FORMAT NUMBER 
LIST 


ASCII] DISC FILES. 
THE FILE NAME MAY BE DECLARED ON THE PROGRAM CARD AND THE TAPE NUMBER 
EQUATED TO THE FILE NAME. OTHERAISE A CALL ASSIGN’ MAY BE USED 
TO ECUATE THE TAPE NUMSER AND DISC FILE tate (SEE CHAPTER 303). 


BCD TAPES. 
THE TAPE VAULT NUMBER MUST BE DECLARED ON THE PROGRAM CARD, AND THE 
TAPE NUMBER MUST BE EQUATED TO THE TAPE VAULT NUMBER, 


TELE TYPE 
Te $059, INFORMATION HILL BE READ FROM OR ARITTEN ON THE TELETYPE. IF 
+ TS THE INTEGER 59, THEN 'TAPESS’ HUST APPEAR ON THE PROGRAM 
CaRD. IF [US A VARIABLE WHICH HAS BEEN SET TO 59, “TAPESS' DOES 
NOT HAVE TO APPEAR ON THE PROGRAM CARD, AND THE PROGRAM HILL BE 200! 
aCRES SHORTER, 

6480 
TF tefG0, INFORMATION KILL BE ARITTEN ON THE ¢¢e8CC VIA THE 


THE 
cCRIBCD- ROUTINE (SEE CHAPTER 504). iF [ 1S THE (NTEGER {00, THEN 
"TAPELCO’ MUST APPEAR ON THE PROGRAM CARD. fF 2 ITS A VARIABLE 
RHICH HAS BEEN SET TO 100 'TAPEIOO’ DUES NET HAVE TO «APPEAR ON 
THE PROGRAM CARD AND THE 2001 RKORD BUFFER WILL BE ELIMINATED. 
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EXAMPLE: 


EXAMPLE: 


SUMMARY ; 


FORM; 


KHERE: 


REMARKS; 


204.5. AVAILABLE FORTRAN LANGUAGE 


PROGRAM EXAMPLE (HICCUP, TAPEL=HICCUP, TAPESS) 
REaD (1, 53 A, B,C 
ARITE (59, 3) A, B, ¢ 


THIS READS THE DISC FILE HICCUP AND PRINTS a, B, C ON THE TELETYPE. 


PROGRAM EXAMPLE (HICCUP, TAPE LeHICCUP) 
Read (1, 5) A, B, C 

Nebo 

ARITE (NH, 3) a, B, C 


THIS DOES THE SAME AS THE ABOVE EXAMPLE. HOREVER, THE 2001 KCRD GUFFER FOR 
TAPESS $$ DELETES. 


ee eer rere er eee rr ere reer eee err er errr ererererer ere rerere rrr ere ree ry 


REAC/ARITE os- BINARY 1/9 
TO READ OR ARITE BINARY TAPES OR DISC FILES. 
READ TAPE J, L 
WRITE TAPE 3, b 


Nf TaPE UNIT NUMBER 
L LIST 


{. BINARY F 


-4 
x 
r 
" 
1 ne oe 


} 

LE NAME MAY St CECLARED ON THE PROGRAM CARD AND THE TAPE NUMBER 
EQUATED TO THE FILE NAME, A 'CaLL ASSIGN’ MAY BE USED TO EQUATE 

ro 


2. BINARY TAPES 
THE TAPE VAULT NUMBER MUST BE DECLARED ON THE PROGRAM CARD AND THE 
TAPE NUMBER MUST BE EQUATED TS TRE TAPE VAULT NUMBER. 


3 
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EXAMPLE: 
PROGRAM EX (AE222, TAPE2«AE222, XX, TAPE4=XX) 


he2 
READ TAPE N, A, B, C 
WRITE TAPE 4, A, 8, C 


THIS READS TAPE 'AE222' AND WRITES IN THE DISC FILE "XX". 
END FILE -+ WRITE END-OF-FILE 
SUMMARY: TO RKRITE AN END-OF-FILE MARK ON TAPE OR DISC. 
FORM: END FILE { 


RHERE: TAPE UNIT NUMBER 


REWIND -- RENIND TAPE 
SUMMARY; TO REWIND A TAPE OR SET THE FIRST WORD ADDRESS CF THE DISC BACK TO ZERSG. 
FORM: REXIND | 
RHERE: | TAPE UNIT NUMBER 
REMARKS: REWIND TURNS OFF ALL END-OF-FILE SIGNALS. 
BACKSPACE -- BACKSPACE RECORD 


SUMMARY: TO BACKSPACE ONE RECORD OF BINARY INFORMATION ON TAPE OR DISC, OR BACKSPACE 
ONE RECORD OF BCD INFORMATION ON TaPE. 


FORM: BACKSPACE | 


RHERE: = | TAPE UNIT NUMBER 


THE CHIPPEWA COMPILER 


SUMMARY: 


FORM: 


WHERE: 


REMARKS: 


=(}6)= SEE APPENDIX A, 
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204.5, AVAILABLE FORTRAN LANGUAGE 


BUFFER IN/OUT -- BUFFERED TAPE OR DISC 1/6 


TO READ INFORMATION FROM OR RRITE INFORMATION TO DISC OR TAPE. 


BUFFER IN (i,M) CACKE}, BiK2)) 


BUFFER OUT Ci,M) CACKI}, B(K2)) 
! TAPE UNIT NUMBER 

M MOCE. o tS B02. 
AKI) FIRST RGRD aDoRESS 


8(K2) LAST wdRD ADDRESS 


1 1S BINARY, 


1, THE COMPILER USES DISPLAY CODE xif6le TNTERNALLY, NOT ASCI(, SVFFER IN, 
IN THE BCD MODE, DOES NOT CONVERT aSCil TO DISPLAY, AND BUFFER ONT IN 
THE BCD MODE DOES GOT CONVERT DISPLAY TO ASCEL, "CALL SAITOH’ MAY SE 
USED TO D0 THIS (SEE CHAPTER 3507), 


LTHER Oh TRE 
NE ON 

£ OR TAPE NAME 
FOR EXAMPLE: 


2. TRE TAPE NUMS eR MUST 8k 
© PROGRAM CART 


cas 


PROGRAM SET(XX=0, TAPED ®XX! 
DIMENSION ACIOO! 


BUFFER IN (1, O) CAST), ACIOO)) 


© Se reece se wee weer eeeeeeseeeeresee seen esenreresee seer ae ese ee eset et eE eee ewer eeese 


PACE 61, 
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204.5.  AYAILABLE FORTRAN LANGUAGE 


IF CUNIT) s+ TEST FOR COMPLETION OF BUFFERED 170 


SUMMARY: TS CHECK THE STATUS OF A PREVIOUSLY INITIATED "BUFFER IN’ OR ‘BUFFER 

out’. 
FORM: IF (UNIT, T) Nf, N2, N3, N4 
RHERE: =| TAPE UNIT NUMBER 
NI NEXT STATENENT IF BUFFERED 1/0 NOT FINISHED. 
N20 NEXT STATEMENT TF SUFFERED 1/0 FINISHED ALTH NO ERRORS. 
N30 NEXT SVATEMENT TF SUFFERED [/8 FINISHED AITH END-OF-FILE = OR 
END-OF-TaPE. (USE "LF (EGF 2" TO DISTINGUISH THESE TAS CASES.) 
N40 NEXT STATEMENT IF BUFFERED [/9 FINISHED niTH PARITY OR RECORD LENGTH 
ERROR. iUSE 'IF CLOCHECK)’ TO DISTINGUISH THESE TAO CASES.) 
REMARKS: 1. «& RECORD LENGTH ERROR OCCURS (TAPE ONLY: IF THERE ARE MORE ASROS IN THE 
RECORD THEN THE NUMBER OF ARDS REGUESTED. 
2. IF NY BRANCHES BACK TO THE UNIT TEST, A DELAY UNTIL [78 IS Finisned 
OCCURS. 
IF (E0F) ++ TEST FOR END-OF -FILE 
SUMMARY: TO DETERMINE IF AN END-OF-FILE HAS BEEN READ FROM CISC OR TAPE. 
FORM: lr SENDFILE UT) Nt, N2 
TF (aor, 02 Nt, N2 
WHERE: TAPE UNIT NUMBER 

Nt NEXT STATENENT JF END-OF-FILE FOUND 
N20 NEXT STATEMENT IF NO END-CF-FILE FOUND 
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204.5, AVAILABLE FORTRAN LANGUAGE 


IF CIOCHECK) -- TEST FOR PARITY ERROR 
SUMMARY: TO DETERMINE IF A PARITY ERROR EXISTS. 
FORM: TF CLOCHECK, 1) NI, N2 
RHERE: =| TAPE UNIT NUSBER 


Ni NEXT STATEMENT IF PARITY ERROR. 
N29 NEXT STATEMENT IF NO PARITY ERROR, 


LENGTH -- DETERMINE RECORD LENGTH 


SUMMARY; TO DETERMINE THE NUMBER OF COMPUTER AGRDS TRANSMITTED IN THE LAST BUFFERED 
OPERATION CN UNIT "I. 


FORM; K oe LENGTH (1) 


RHERE: | TAPE UNIT NUMBER. 
K NUMBER OF HORDS TRANSMITTED IN THE LAST BUFFERED 1/5 ON UNIT 'T’. 


Errata | 
March 9, 1970 
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204.5. AVAILABLE FORTRAN LANGUAGE 


204.5.4. BUILT-IN FUNCTIONS 


NOTE: SEE CHAPTERS 3502-507 FOR AVAILABLE LIBRARY ROUTINES. 


acTUAL 
ALTERNATE PARAMETER MSDE OF 

FORM FORM DEF INS TION TYPE RESULT 
ABS (X) ABSF(X) ABSOLUTE VALUE REAL REAL 
AIMAG (CO) SSTAIN THE [MAGINARY PART OF COMPLEX REAL 

A COMPLEX ARGUMENT 
AINT(X) TNTF OX) TRUNCATION, INTEGER REAL REAL 
AMAXO(I1,32,..) MAXOF (11,12...) DETERMINE MAaXiMud ARGUMENT INTEGER REAL 
AMAXL UXT ,X2, 001 MAXIF (X1,X2,..1 DETERMINE MAXIMUM ARGUMENT REAL REAL 
AMINOCIL 12...) MINOF (11,12...) DETERMINE MINIMUM ARGUMENT INTEGER REAL 
AMINL(X! XB...) MINIF(X1,X2,..) DETERMINE MINIMUM ARGUMENT REAL REAL 
AMOD(X1,X2] MODF (XE, X2) X1 MODULE X2 REAL REAL 
CMPLX (XI ,X2) CONVERT REAL TO COMPLEX REAL COMPLEX 

(XE + x2 i} 
CONUG CC) CONJUGATE OF ¢ COMPLEX COMPLEX 
DIM(X1,X2) DIMF (Xt ,X2) IF X! GREATER THAN X2: REAL REAL 

Xt = X2 

IF X1 LESS THAN OR EQUAL 

TO x2: 0 


OMAX1 (D1 ,D2,..) DETERMINE MAXIMUM ARGUMENT DOUBLE DOUBLE 


DMINCCDL D2,..2 


FLOAT(H) 
1apS(1) 


TDIMCUI, 12) 


sFIX CX} 

TNT (X) 
TSTGNCI!,12) 
MAxO(11,32,. 
MAXYCXT, X2,. 


MINOCII,12,. 


MINGCXT, X2,.. 


MODCT1,32) 


REAL(C) 


SIONCXT, X2) 


P| 


} 


.} 


THE CHIPPEKA COMPILER 


204.5. 


FLOATF(T} 
XABSF CL) 


XDIMFC11,$2) 


XFUXF (%) 
XINTF A(X) 


XSLGNF(I1, 12) 


XMAXOF(I(,12,..1 


XMAATPOXT, X2,..) 


XMINOFCI1,12,. 


XMINIF (XE, X2,. 


XMODF (11,12) 


SIGNF (X1,X2) 


ae] 


od 


Errata | 


March 9, 1970 
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AVAILABLE FORTRAN LANGUAGE 


DETERMINE MINIMUM ARGUMENT 
INTEGER OF REAL CONVERSION 
ABSOLUTE VALUE 

IF [{ GREATER THAN 12: 

If - 12 


IF If LESS THAN OR EQUAL 
TO 12: 0 


REAL-TO-IATEGER CONVERS. ON 
TRUNCATION [NTEGER 

SIGH OF i2 TIMES It 

DETERMINE MAXIMUM ARGUMENT 
DETERMINE MAXIMUM ARGUMENT 
DETERMINE MINIMUM ARGUMENT 
DETERMINE MINIMUM ARGUMENT 


] 


Tt MODULO 


_ 


OBTAIN THE REAL PART OF A 
COMPLEX aRGUNENT 


SIGN OF X2 TIMES X! 


DOUBLE 


INTEGER 


INTEGER 


UNTEGER 


INTEGER 


INTEGER 


REAL 


INTEGER 


REAL 


TNTEGER 


COMPLEX 


REAL 


PAGE 37 


INTEGER 


TUTEGER 


INTEGER 


INTEGER 


DiTEGER 


INTEGER 


REAL 
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204.6, COMPILER AND LIBRARY ANOMALIES 


ONLY A SIMPLE INTEGER ARITHMETIC EXPRESSION CAN BE USED AS A SUBSCRIPT, HERE 
"SIMPLE’ MEANS CONTAINING NO EXPONENTIATION OR PARENTHESIS (EXCEPT FOR 
REFERENCES TO BUILT-IN FUNCTIONS). 


FORTRAN LL STATEMENTS MAY BE USED IN FORTRAN LY PROGRAMS, EXCEPT AHERE COMMON 1S 
REORDERED BY ECUIVALENCE, 


MORE THAN ONE STATEMENT May SE PUT ON A LINE. THE COLLAR SIGN ($1 SEPARATES 
THESE STATEMENTS. THE USE OF THE DOLLAR SIGN tS LIKE STARTING Ih COL. 7; THAT 
1S, NO STATEMENT NUMBER [$ ALLOAED ON THE SECOND STATEMENT. 


BLANK CaRDS ARE NOT ALLOWED BEFORE PROGRAM, FUNCTION OR SUSROUTINE CARDS. BLANKS 
ARE ALLOKED BETAEEN THE HEADER CARD aND END’ Cards. 


MULTIPLE REPLACEMENT STATEMENTS ARE ALLOKED, 1.6., aeBeCe0.0 


ONE- AND THO-BRANCH LOGICAL IF’ STATEMENTS ARE ALL OAED: 
TFL § 
TFCL) Ni,N2 
"L' IS A LOGICAL EXPRESSION, 
'S' TS A STATEMENT. 
IF 'L’ {S$ TRUE CHON ZERO! STATEMENT 'S’ 16 EXECUTES. 
OTRERAISE THE PROGRAM CONTINUES AITH TRE NEXT STATEMENT. 
TNE’ AND 'N2" ARE STATEMENT NUMBERS, 
THE PROGRAM GOES TO STATEMENT “NI? TF 'L’ IS TRUE (HON CERO. 
IF 'L' IS FALSE (ZERO) TRANSFER [S TO STATEMENT 'N2’. 


TRE DIVIDE (/) IN FORTRAN ‘1 BOOLEAN STATEMENTS (°B’ GN COL. of) [8S AN 
"EXCLUSIVE OR’ MASKING OPERATION. 


DATA’ STATEMENTS MAY BE KRITTEN AS FOLLOAS: 

1. DATA ( COURT, tefl, 10) © 1.1, 2., 3., 4%4.352) 3 
2. DATA (GiBCS) tet, 10) /t., 2., 3. 404. 352/ 

3. DATA GIB /t., 2., 3.. 4%4.32/ 

4. DATA (GB = f., 2., 3., 4¢4. 3201 


THESE STATEMENTS ALL SET THE FIRST SEVEN LOCATIONS OF ARRAY -GIB- TO THE FOLLORING 
VALVES; 
1., 2., 3., 4.352, 4.52, 4.32, 4.32 
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204.6. COMPILER AND LIBRARY ANOMALIES 


TYPES 1 AND 2 MAY NOT BE USED FOR DOUBLY OR TRIPLY SUBSCRIPTED ARRAYS. 
TYPES 3 AND 4 AGRK FOR ANY TYPE ARRAY, 


‘DATA’ STATEMENTS MAY NOT BE USED TO SET VALUES IN BLANK OR NUMBERED COMMON, 


5. "H! AND "R’ FIELDS ARE AVAILABLE. AN 'H’ FIELD IS LEFT ADJUSTED ITH 
BLANK FILL. AN 'R' FIELD IS RIGHT ADJUSTED WITH ZERO FILL. HELLERITH 
CONSTANTS ARE ALWAYS TYPE INTEGER’. FOR EXAMPLE: 
sHCHIP GENERATES MACHINE RORD 03161126555§55555555 . 0 e( {71x 
ARCHIP GENERATES MACHINE WORD COOTCSGOGOOSGSSLOL120 . CTT)» 


1G, DOUSLE PRECISION CONSTANTS -+ THE LOW CROER PART 1S ALRAYS SeT TO ZEROS BY THE 
COMPILER, THE INPUT ROUTINE KILL CORRECTLY CONVERT A DOUBLE PRECISION CONSTANT IF 
A 'OD' FORMAT IS USED. 


tt. THE STANDARD LIBRARY ROUTINES DO NOT CHECK FOR INCEFINITE CR OUT OF RANGE RESULTS. 


f2. iF DIVIDE CHECK NI, N2 (NO PARENTHESES: 
CHECKS REGISTERS X6 AND X7 FOR AN OUT OF RANGE OR ENDEFINITE CONDITION. IF EITHER 
OF THESE CONDITIONS EXIST, CONTROL [S$ TRANSFERRED TQ STATEMENT = ‘NG’. 
OTHERAISE CONTROL IS TRANSFERRED TO 'N2’. 


IF ACCUMULATOR OVERFLOK NI,N2 (Nd PARENTHESES] 
AND 

TF CUOTIENT QOVERFLOA Nt,N2 (NO PARENTHESES J 
BOTH CHECK REGISTERS X6 AND X7 FOR AN OUT OF RANGE CONDITION. iF TR 
EXISTS, CONTROL 1S TRANSFERRED TO 'NI'. OTHERWISE, CONTROL IS TRANSF 
STATEMENT 'N2’, 


2S CONDITION 
ERRED Td 


13. STATEMENT LaBELS MAY BE USED AS SUBROUTINE ARGUMENTS. £.6., CALL BYIN (A,10S) 
PUTS THE ADDRESS OF 'A' (N REGISTER BI AND THE ADORESS OF STATEMENT {0 INTO 
REGISTER B2. 

HOAEVER, A STATEMENT LABEL CANNOT GE USED WITH THE LOC FUNCTION, VY »© LOC(96S) 
RILL NOT COMPILE. 


14, "CONTINUE’ STATEMENTS MUST HAVE STATEMENT NUMBERS. 


5. USING BLANK AND NUMBERED COMMON REDUCES THE AMOUNT OF CORE STORAGE REQUIRED BY THE 
COMPILER. 


16. "PARAMETER' AND 'CLICHE’ STATEMENTS ARE NOT AVAILABLE. MULTIPLE ENTRY 
POINTS TO SUBROUTINES ARE NOT ALLOKED. 'NAMELIST’ AND 'PUNCH' STATEMENTS 
HAYE NOT BEEN IMPLEMENTED. 


sCiTia TN DISPLAY CODE, (SEE APPENDIX A, PAGE 61.1 


20. 


ai. 


22. 


23. 
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204.6. COMPILER AND LIBRARY ANOMALIES 


THE STATEMENTS RHICH TEST AND SET SENSE CR SENSE SAITCHES SHOULD NOT BE 
H ORD 0. 


LIGHTS 
USED, SINCE THEY STORE BITS AND TEST BITS IN A 


N 


THE ENCODE’ AND 'SECODE’ STATEMENTS DO NOT HORK. KOREVER, READ BCD AND 
ARITE BCD (KHEN USOD RITH DISC FILES! MAY BE USED TO ACHIEVE THE SAME EFFECT. THE 
FOLLCAING EXAMPLE ILLUSTRATES THE CODING. 
REKIND 6 
ARITE (6,1) ALPHA 
1 FORMAT (1X, 410) 
READ (6,2) (CHARS(K] Kei, 10) 
2 FORMATCIX,10A1) 


TRE NUMBER OF WORDS KRITTEN MUST NOT EXCEED 512, BECAUSE THE BUFFER [S$ 
AUTOMATECALLY EMPTIED HHEN 512 KORDS HAVE BEEN ARITTEN. SINCE THE INFORMATION 
NEVER GOES TO DISC, ONLY a ONE HORD DISC FILE NEED BE CREATED AND ASSOCIATED ITH 
THE TAPE NUMBER USED FOR FORMAT CONVERSION, 


THERE SHOULD ALAAYS BE A IX AT THE BEGINNING OF EACH FORMAT STATEMENT, SINCE A 
"t' OR 'O" AS THE FIRST CHARACTER CAUSES « PAGE RESTORE OR A LINE FEED TO 
BE INSERTED GEFORE THE INFORMATION, 


NOTE 1: IT iS NOT POSSIBLE TO REREAD THIS INFORMATION A SECOND TIME. 


NOTE 2: IF oA 'REAIND' TS INSERTED BETACEN THE 'RRITE’ AND TRE 
"READ’ THE [INPUT ROUTINE HILL SEND INFORMATION FROM THE DISC FILE 
RHICH CAUSES INCORRECT RESULTS. 


“XLOCF> DUES NOT KIRK, USE -LOC-. 
FILE NAMES AND VAR] ABLE NAMES MAY NOT GE MORE THAN SEVEN CRARACTERS. 


"PAUSE’, "PAUSE N’, "STOP" SR “STOP RY KILL STOP A PROGRAM, TYPE 
OUT THE MESSAGE: 

STOP OR PAUSE. HIT LINEFEED TO CONTINUE. 
AND RAIT FOR A LINEFEED TO CONTINUE. 


FOR LOGICAL EXPRESSIONS, A MINUS ZERO CR A NONZERO QUANTITY IS CONSIDERED TRUE, 
AND ONLY A PLUS ZERO IS CONSIDERED FALSE. THE EXPRESSION (1.LT.O) 1S EVALUATED AS 
TRUE IF T = °0, 


WHEN HRITING HITH AN 'E’ OR °F’ TYPE FORMAT, INFINITE OR OUT OF RANGE 
NUMBERS ARE PRINTED AS 'RRRR'; INDEFINITE NUMBERS ARE PRINTED AS 
“UIT. 


25. 
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204.6. COMPILER AND LIBRARY ANOMALIES 


NUMERICAL FIXED POINT ('U' SPECIFICATION) OR FLOATING POINT (TFS 
SPECIFICATION) OUTPUT HAVING Au ASTERISK (a) 4S THE LEADING CHARACTER SIGHIFIES 


mae 


THAT TRE ACTUAL VALUE SF THE DATA AAS TOC LARGE FOR THE SPECIFIES FIELD KISTH. 


HOLLERITH DATA Mav BE PRINTED FROM A FERMAT USING ‘x’ RATHER THAN ‘H’, 


FOR EXAMPLE: 
FORMAT CHPRINT GUT THIS COMMENT as) 
WILL PRINT OUT THE CHARACTERS BETWEEN THE &’S AS HOLLERITH Dara, 


THE CHIPPEAA COMPILER USES DISPLAY CODE INTERNALLY, RATHER THAN ASCII. SEE 
APPENDIX A, PAGE 61. 


4s 
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264.7. DESCRIPTION OF PUBLIC FILE /CHIP/ 


204. 7.1. OPERATIONAL CETAILS 


£ PUBLIC FILE /CHIP/ PROVIDES A MEANS OF PASSING INFORMATION FROM THE USER T9 TRE 
aa PPERA COMPILER -RUN- (HHICH RESIDES IN FILE /4RUN/ AT COMPILE TIMES. THIS INFORMATION 
1S USED BY -RUN- IN THE COMPILING OR ASSEMBLING OF CODES ARITTEN FOR THE CHIPPEWA 
COMPILER, 
-CHIP> MAY BE STARTED IN ONE OF THO MANNERS: 
1. USER TYPES: CHIP (17 4,B,C,E,F,G,H 7 TY 


KHERE: 


o- 


PRIVATE LIBRARY NAME, IF ANY, 
HaME Cr ASCHT INPUT FIL 

FILE Name FOR PRINTABLE OUTPUT. 
COMPILE MODE. 

COMPILER FIELD LENGTH (OCTAL). 
PROGRAM FIELD LENGTH COCTAL?. 
PROGRAM 1/9 BUFFER LENGTHS COCTAL 
PROGRAM COMMON LENGTH (OCTALI. 
LINE LIMIT FOR OUTPUT FILE COCTAL 


zronm ewe mw we 


FURTHER INFORMATION ABOUT THE CHIP INPUT LINE IS GIVEN IN SECTION 204,3.1, PAGE 10. 
2. USER TYPES: CHIP / TY 
CHIP RESPONDS: NOY VERSION, TYPE HELP OR INPUT LINE. 
OK 


USER MAY Nod TYPE ONE OF THE FOLLOWING: 


a4, USER TYPES: LINEPEED 
CHIP RESPONDS: NOY VERSION. TYPE KELP OR INPUT LINE 
UK 
B. USER TYPES: HELP 
CHIP RESPONDS: DESCRIPTION OF INPUT LINE. 
OK 
C. USER TYPES: END 


SYSTEM RESPONDS: ALL DONE 


D. USER TYPES: (i) A,B,C,0,£,F,6,8 [as agoved 
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ONCE -CHIP- HAS BEEN STARTED, IT PROCEEDS AS FCLLOXS: 


‘. GETS [PUT FROM THE EXECUTE LINE. 

2. CREATES OR OPES /rCHIP/. 

LF CHANGES PROBLEM PROGRAM heaME TO /+CHIP/. 

+. CHECKS FIRST WORD OF LaPyT FOR A LONEFEED, “END', OR HELP’ AND 
AS DESCRIBED ABIVE. OTHERAISE IT ASSUMES THE TNPUT GINE HAS BEEN 

5. CHECKS JNPUT FOR PRIVATE LIGRARY NAME AND CHECKS FOR SROP OUT CF a 
ARGUMENTS OF THE INPUT LINE. 

6. CHECKS ARGUMENT "8! FOR A FILE NAME OR FOR oi OR 'RSP’. IF NO 
NAME TS GIVEN, THE OUTPUT FILE Nate tS /OUTPUT iF 'OLP’ GR! 


ar 

GIVEN, A FILE Nave 1S GENERATED FROM a ae "READING and AL 

RESPECTIVELY. IF A FILE Nate tS GIVEN, -CHIP- ASSUGNS TdaT NAME 

RICE: 
; SNVERTS ASCIL ARGUMENTS TO DISPLAY COCE =1131 
CHECKS FOR DROPOUT OF COMPILER LENGTH. JF NOT oGIvEN, THE Cove 
; ASSUMED 78 BE 45000 OCTaL. fF GIVEN, IT 1S CONVERTED FROM JiSPLAY 
9, ADDS 1130 ASRDS TS TRE cov? 


x, 
- 
1 


ad 


I vet 
at OF THe OTRER 


FILE 

RSP’ 1S 

EallING P oR x 
TS THE GUTPUT 


tabR LeaGin £S 
CSSE TS BitaRr. 


ILER LENGTH IF baci 1S NO PRIVATE LIBRARY §R 4905 2250 
AERTS TO TRE COMPILER CENGTH IF TRERE [S . PRIVATE LIBRARY. THE EXTRA WSROS ARE 
USED IN THE LOADING OF TRE FILE ihDICES OF THe PRIVATE LIGRARY ANS/OR TRE PUBLIC 
LIBRARY /CLI8 BY “RUN. 
10, CHECKS FOR DROPOUT OF PROGRAM FIELD LENGTH. iF NO LENGTH ofS SPECIFIED, -ChiP- 
aSS!Gis THE COMP ee FIELD LENGTH. GF OST ofS SPeCIFies, tT tS CoNVERTED FROM 
GiSPLAY CSE TS O1ARY, 
Lf. CHECKS FOR CROPGUT SF LINE LUM! TF ORO LIMIT GS SPECIFIED, IT aASSIGHS A LIME 
LiMiy OF 4500 S2TAL. TF IT US SPECIFIED, iT oiS CONVERTED FROM DiSPlay CODE 79 
Bilary, 
12, CREATES /+RUN’ AT A SIZE EQUAL TO THE COMPILER oe LENSTH SPECIFIED Gu THE 
oCHIP> SP UT Lite PLS 1135G OR 2260 WORDS (AS SPECIFIED IN 9: PLUS 400 HORDS FOR 
FROST, if Tre CREATE FAILS, -CHIP? OPENS AND LESTRIYS ANY EXISTING FILE /#RUN/ 
atig CREATES /#RIN/ AT THE PROPER LENGTH, 
13. COMPUTES THE Sila OF THE CUTPUT FILE COCTAL LENGTH = LUNE LIMIT = !4 ¢ 20001. 
14 CREATES TRE OUTPUT FILE. -CHiP- RILL TRY Td OPEN, DESTROY, AND RECREATE IF TRE 
ae CREATE CALL FAILS. 
15. OPENS PUBLIC FILE “CoiB/ and STORES ARGUMENTS TO BE USED BY /*RUN/. 
16. COPIES COMPILER FROM /CLIB/ TO /4RUN’. (THE COMPILER EXISTS IN THE FIRST 46000 
meROS CF /CLIB/.) 
17, UPDATES -CHIP- USAGE COUNTER IN FILE /GRRR/, 
18. INITIALIZES /#RUN/ AS A CONTROLLEE AND SENDS A MESSAGE TO START /+#RUN/, 
19, /+RUN/ OPENS AND SESTROYS /#CHIP/. 


BiLGia SEE APPENDIX A, PAGE Ol. 
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204.7.2.  ERRER MESSAGES DURING -CHIP- INITIATION 


*CHIP> MAY SEND THE FOLLOAING ERROR MESSAGES: 


1, CANNOT CREATE +CKIP 
GIVEN IF -CHIP- CANNOT CREATE OR OPEN /+CHIP/ CUSUALLY NOT ENSUGH OISK SPACE 
AVAILABLE: OR IF THE CHANGE NAME TO /+CHIP/ FAILS. 


2. CANNOT CREATE +R 
GIVEN IF -CHIP> FAILS TO CREATE, SPEN, OR DESTROY /+RUN/, 
if THE CREATE FAILS, -CHIP- TRIES TO OPEN AND SESTROY /+RUN/, THEN TRIES 79 
RECREATE IT AT PROPER LENGTH, TRE ERROR MESSAGE IS GIVEN ONLY IF THIS RECOVERY 
FAILS. 


3. CANNOT CREATE HSP OUTPUT FiL 
GIVER IF -CHIP- FAILS TS CREATE THE LISTABLE OUTPUT FILE, KIiTH RECOVERY 
PROCEDURES DESCRIBED ABOVE. 


4. CANNOT CPEN CLIB... 
GIVEN IF -CRIP- CANNOT Gath ACCESS TO /CLIB/. 


5. DISC PARITY ERROR. AHILE COPYING RUN. RESTART .. 


6. CANNOT LNITIALIZE +RUN 
CONTROLLEE /#RUN/ CANNOT BE INITIALIZES OR THE SEND A MESSAGE CALL TO START THE 
CONTROLLEE FAILED. 


7, MISSING RT PARENS IN TTY TNPUT, RETYPE ENTIRE LINE 
GIVEN TF RIGHT PARENTHESIS iS NOT USED AFTER PRIVATE LIBRARY NAME. 


THE USER SHOULD TRY TO RESTART -CHIP- IF ERRORS {-6 OCCUR. IN CASE CF ERROR {, /+CHIP/ 
SHSULD BE DESTROYED BEFORE RESTARTING. IN CASE OF ERROR 7, THE INPUT LINE SHOULD BE 
RETYPED (NOT NECESSARY TO RESTART -CHIP=). 


44 
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204.8, CHIPPEWA ASSEMBLY LANGUAGE (CLASS) 


THIS SECTION 1S QUOTED, WITH PERMISSION, FROM £31, PAGES 62-71. 


204.8.1. INTRODUCTION TO CLASS 


Pewee aera we eew ae esas ee cawevucene 


THE FORTRAN COMPILER -RUN-, 1S CAPABLE OF PROCESSING PROGRAMS OR SUBROUTINES ARITTEN IN 
ASSEMGLY LANGUAGE. SUCH PROGRAMS OR SUBROUTINES MAY GE INTERMIXED HITH REGULAR FORTRAN 
PROGRAMS AND SUBROUTINES. EACH MUST BE ORGANIZED AS FOLL OAS: 


HEADER CARD. 

FORTRAN CARDS, IF ANY. 
DECLARATION CARDS, IF ANY. 
HUSTRUCTION CaRQS, 
CONSTANT CARDS, 

END CARD, 


wt tu 


nwa 


IT 1S NOTED THAT 


A) THE INSTRUCTION PORTION OF ThE DECK MUST BE PRECEDED BY '0’ LINES 
CORRESPONDING TO CONTROL KORDS, ARGUMENTS, AND AN EXiT/ENTRY LINE. 


B) TRE CONSTANT PORTION OF THE DECK MUST BE SEPARATES FROM THE INSTRUCTION PORTION 
BY & CARD RITH THO PERIODS (..) PUNCHED IN COLUMNS 7 AND 8. 


C} «=o TRE END CARD 1S PUNCHED AS IN FORTRAN, I.€., END IN COLUMNS 7-9 OF A CARD. 


DY CONSTANTS HAY APPEAR IN THE INSTRUCTION PORTION OF THE SECK PROVIDED THEY ARE 
POSITIVE AND LESS THAN 2354, 


£) oA CARD WHITH AN ASTERISK (#) IN COLUMN 1 RAY APPEAR ANYHHERE IN THE DECK AND [S$ 
TREATED AS A REMARK CARD. 


F) oA CARD RITH A PERIOD (.) IN COLUMN | MAY APPEAR ANYKHERE IN THE DECK AND WILL 
CAUSE A PAGE EVECT AT THE TIME THE PROGRAM OR SUBROUTINE IS LISTED. 
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204.8.2, HEADER FORMATS 


EACH PROGRAM OR SUBROUTINE CODED IN ASSEMBLY LANGUAGE MUST HAVE A HEADER CARD IN ONE OF 
THE FOLLOKING FORMATS: 


MACHINE PROGRAM NAME 

MACHINE PROGRAM NAME (Al, ..., ANI 
MACHINE SUBROUTINE NAME 

MACHINE SUBROUTINE NAME (Al, ..., ANI 


tT [S NOTED THAT 


Alo THE READER INFORMATION MUST BE PUNCHED BETAEEN COLUMN 6 AND COLUMN 73 OF EACH 
CARD USED. 


Bl) UP TO 19 CONTINUATION CARDS MAY BE USED IN ANY SECLARATION, BUT AN ASTERISK (x) 
MUST APPEAR iN COLUMN 6 OF EACH CONTINUATION CARD. 


C) oN THE FOREPART OF THE PROGRAM OR SUBROUTINE TS BE ASSEMBLED THERE MUST Se THREE 
"O' LINES PLUS Ole 'O' LINE FOR EACH ARGUMENT AL, ..., AM: 


0 CONTROL KERO ChE 
0 CONTROL AORD THO 
al 0 ARGUMENT j 
AN ) ARGUMENT N 
0 EXT T/ENTRY 


THE FIRST TAO 'O' LINES CORRESPOND TO CONTROL INP ORNATION FURNISHED BY THE 
COMPILER, AND THE LAST 'O’ LINE 1S UNUSED BY A PROGRAM BUT IS THE EXIT/ENTRY 
LINE FOR A SUBROUTINE. THE FIRST EXECUTABLE INSTRUCTION MUST FOLLOA THE 
EXIT/ENTRY LINE. 


BD) OTHE ARGUMENTS Af, ..., AN ARE TREATED AS DUMMY ARGUMENTS BY THE COMPILER IN THAT 
THEY ARE USED ONLY TO OBTAIN AN ARGUMENT COUNT TO INSERT IN THE SECOND CONTROL 
KERD, 


£1 TF AN ASSEMBLY-LANGUAGE SUBROUTINE iS TO BE REFERENCED BY A FORTRAN PROGRAM OR 
SUBROUTINE, THEN THE ASSENSLY-LANGUAGE SUBROUTINE MUST GE ARITTEN ASSUMING THAT 
THE ADDRESSES OF THE FIRST SIX ARGUMENTS, at-A6, WILL 8 TRANSHITTED THROUGH 
INDEX REGISTERS B1-B6; ARGUMENTS BEYOND THE SiXTH, A7*AN, RILL BE TRANSMITTED 
INTO THE LOCATIONS CORRESPONDING TO AT-AN AITHIN TRE  ASSEMBLY-LANGUAGE 
SUBROUTINES; A RETURN JUMP KILL BE MADE TO THE LOCATION FOLLOAING AN, 


THE CHIPPEHA COMPILER CIC-LTSS-204-E0.1 8/31/68 P 


204.8. CHIPPEWA ASSEMBLY LANGUAGE (CLASS) 


F) FUNCTION ROUTINES, EITHER FORTRAN-CODED, ASSEMBLY-LANGUAGE CODED, OR FROM THE 
SYSTEM'S LIBRARY, LEAVE RESULTS IN X6 UPON EXITING. 


FORTRAN STATEMENTS HHICH ARE ALLOWED IN AN ASSEMBLY-LANGUAGE PROGRAM OR SUBROUTINE ARE THE 
FOLLOAING: 

COMMON 

EQUIVALENCE 

DIMENSION 

EXTERNAL 

DATA 


LOENTIFIERS APPEARING IN THE ABOVE STATEMENTS MAY BE USED [N SUBSEGUENT SYMBOLIC 
INSTRUCTIONS. CONTINUATION CARDS MUST CONTAIN AN ASTERISK (#1) IN COLUMN 6. 


204.8.4. DECLARATION FORMATS 


SIX TAG-ASSOCIATING DECLARATIONS ARE ALLOKED i ASSEMBLY LANGUAGE. THESE PROVYITE FOR 
ASSOCIATING ALPHANUMERIC TAGS WITH CONSTANTS, RiTH REGIONS RESERVED LOCALLY OR IN COMMON, 
aND AITH EXTERNAL SUBROUTINES RHICH ARE SUBJECT TO REFERENCE. EXAMPLES AND EXPLANATIONS 
OF THESE DECLARATIONS FOLLOA: 


{CON (C025, C20777B, C3e-6, 546-2) 


CAUSES THE CONSTANTS O31 THE RIGHT OF THE EGUALS RELATIONS TO BE ASSEMBLED INTO A 
STORAGE AREA aND TAGGED HITH THE IDENTIFIERS APPEARING ON THE LEFT. 


2. ROL CHT eABCDEFGHI J, H20'234567890) 
CAUSES THE TEN-CHARACTER GROUPS, INCLUDING SPACES, ON THE RIGHT OF THE ECUALS 


RELATIONS TO BE CONVERTED 70 DISPLAY CODE, PLACED INTO A STORAGE AREA, AND 
TAGGED AITH THE JDENTIFIERS APPEARING ON THE LEFT. , 


GE 
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204.8.  CHIPPEXA ASSEMBLY LANGUAGE (CLASS) 


3. ABS (JJef0G, KKel008, LL*77778) 


CAUSES THE UNSIGNED VALUES ON THE RIGHT OF THE EQUALS RELATIONS TO BE ASSEMBLED 
INTO INSTRUCTIGNS CONTAINING THE TAGS ON THE LEFT IN THEIR ADOSRESS FCELDS. 


4. RES (Kiel0, K2ei008, K321000) 
CAUSES LOCAL BLOCK RESERVATIONS, AHERE THE NUMBER OF KORDS RESERVED IN EACH 
BLOCK IS THE UNSIGNED NUMBER TO THE RIGHT OF THE EQUALS RELATICN AND HHERE TRE 
BEGINNING OF EACH BLOCK iS TAGGED HITH THE (DENTIFIER ON THE LEFT. 

5. COM (Blel, B2s3500, B3s2058) 
CAUSES BLANK COMMON BLOCK RESERVATIONS, WHERE THE NUMBER OF ASRDS RESERVED tN 
EACH BLOCK 1S THE UNSIGNED NUMBER TO THE RIGHT OF THE EQUALS RELATICN AND WHERE 
THE BEGINNING OF EACH BLOCK IS TAGGED RITH THE IDENTIFIER ON THE LEFT, 

6. SUB (SteSIN, LG=sLOG, SUT CUTPTC) 
CAUSES THE SUBROUTINES RHOSE NAMES ASPEAR ON THE RIGHT CF THE EQUALS RELATION 
TO BE ASSEMBLED INTO MEMORY AND TAGGED WITH THE IDENTIFIERS APPEARING ON THE 
LEFT, 

IT IS NOTED THAT 


Al. EACH TAG-ASSOCIATING DECLARATION 1S PUNCHED BETHEEN COLUMN 6 AND 73 OF EACH CARD 
USED. 


B) UP TO {9 CONTINUATION CARDS MAY BE USED IN ANY DECLARATION, BUT AN ASTERISK («) 
MUST APPEAR IN COLUMN 6 OF EACH CONTINUATION CARD. 


C) TRE CPEN PARENTHESIS ( ( ) FOLLOWING CON, HOL, «BS, RES, COM, OR SUS MAY BE 
REPLACED BY ANY SEPARATOR IF THE FINAL CLOSING PARENTHESIS ( )} ) IS DROPPED. 
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204.8.5. INSTRUCTION FORMATS (CLASS) 


IN THE ASSEMBLY LANGUAGE, OPERATIONAL REGISTERS ARE DESIGNATED BY SINGLE-CHARACTER 


AS FOLLOAS: 


» x0 
* X! 
= X2 
x3 
= X4 
« X5 
« X6 
« X7 


bn a is Moe] 
« 


Re AH O 


» §0 
= BI 
s 82 
» 83 
« BS 
« 65 
» 6 
» 87 


mronmon ®D I 


«s hO 
s At 
« &2 
e A5 
s hd 
« A5 
A6 
sal 


THE LETTER 'R’ 1S USED TO SPECIFY A RETURN JUMP, 4ND THE LETTER 


SPECIFY ALL OTHER JUMPS. 


LET 'S’ REPRESENT ANY CF THE LETTERS S$-Z, 
THE DIGIT 0, AND 'A’ REPRESENT ANY OF THE LETTERS 


POSITIVE INTEGER LESS THAN 216 OR AN ALPHANUMERIC TAG 


OF ASSEMBLY -LANGUAGE INSTRUCTIONS, GROUPED ACCORDING 


EXECUTION, ARE AS FOLLOAS: 


SYMBOLIC FORM MACHINE FORM 


wer esse csceue 


a 8 
+ 


- 
wor ee eK MM MNMNM MN MM 


“Nos 


Se nd to ES en ool 


- 


a 
- 


e 
onornmrnorncenr vn nvr FO oO DO 


‘o vv'v "0 ‘DU VV VV VU UDO 
« 


~—- No 


a 
- 


weeen ce esece 


AcH. LET 


EXAMPLE 


weer eces 


Q 


+ 
= 


I> Be 


cy cy Gr Gd ra acoecT® 


Be 
z ~ 
wa-Bood 


i tat 


Ir Be 


- 


ee 
PeTaG Nig 
Pets, 100 


YeY 
T,LeWax 
V.LeY4Z 


"P’ 1S USED TO 


"T' REPRESENT atiy OF THE LETTERS 1-9 OR 
"Q’ REPRESENT A 
SF 2-6 CHARACTERS, 
TO FUNCTIONAL UNITS REGUIRED 
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S.L«S-S 
Se-S 
$.¢=Ss$ 
S.CeS+#S 
$.CeS-§ 
$=S(C) 
$9$(-0) 
SeS(l: 
SeS(-1) 
$,f«S- 
S,leS+ 
S,tes, 
Ss!,S. 
$«xQ 


oNeS4S 
wNeSeS 
2DaS+*S 
6005-5 
RaS eS 
eReSeS 


NAMNANMNMNM 


mn 
os 
se a 
nn 
° + 
n 


mmm 
oma 
s @ 8 
nnn 
ee 
nnm 


nNeAmMmMmM 
ee 
w 
: @ 
wn 
hay 
wn 


$*(44+0) 
S9(1+0) 
S#(S+0) 
° $a’ S+t) 
Se(ae!) 
Se(A-4) 
Se(l+l) 
Sstiel) 
TeA+d 
foi +0 
1sS+0 
TeS+] 


13tgk 
s4igk 
{50k 
16i jk 
{7igk 
261 5k 
2.igk 
223k 
237 yk 
245k 
25t jk 
261 5k 
27igk 


431 5k 


30t gk 
Slisk 
321 yk 
B3tyk 
341 jk 
351 yk 


360i gk 
371 5k 


401 Gk 
atigk 
421 jk 


adi gk 
45i gk 
46XXX 
47 tik 


505K 
SLtjK 
521 5K 
53: jk 
54i 5k 
55i jk 
Soi yk 
57i gk 
60; 5K 
611 3K 
627i 5K 
Odi gk 


Y.bel-¥ 
Zerk 

a, Caray 
X.Ce¥tn 
Y.CeS-2 
Tet (24) 
Usul-10) 
¥ex (UW) 
nedioM) 
X,Jeh- 
Y Kel 
Z,0eu, 
TaK,Y, 
Yex{2 


TiheUey 
Utiex-2 
Y.Deve¥ 
n.DeS*U 
X Relel 
Y,RaleT 


S.NeXxxX 
y RaYxy 
TL, OsTay 


Y.isT/X 
Z.R8X/H 
$ 

Texh 


Ta(C+T7AG) 
Ua J+i00) 
22 (T+308) 
Tel TeJ) 
Us (Sek) 
Ye( Cot 
de(Men, 
Xab-X) 
JeHtTAG 
K=L+{0 
LsL +558 
MeTeJ 
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IT IS NOTED THAT 


A} 


C0) 


0) 


Least! 
leA-] 
Lel+] 
Tel -] 
SeAtd 
Sa] +0 
$*S$+0 
SSel 
Seat 
Sear} 
Sele] 
Sel-] 
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645 5k 
657 5k 
606i jk 
671 5k 
TGt gk 
TLigx 
T2ijK 
TBtyK 
Talyk 
Th tgk 
T6igk 
TT1gk 


N«Gtk 
OsAoL 
TeltJ 
vek-N 
TeGtTAG 
Usk +5 
YeL +158 
KeXtJ 
XaheK 
YeCok 
ZeM+] 
S*N-0 


THE ARITHMETIC MOCE INDICATORS L, C, N, £, R, AND J 
RESULT REGISTER NAME, J.£., THE PERIOD (.) IN THESE 


IN THE INSTRUCTIONS O2 AND 50-77 EITHER TERM MaY BE 


TL aXx¥ 
UCaY+¥ 
Viel /h 
AD aX +Y 
XReS-T 


DESIGNATION IS ASSEMBLED. 


Dak 
PeTaG 
Teiu) 
Je15B 
UK 


MAY IMMEDIATELY FOULOA A 
CASES 1S OPTIONAL. 


DREPPED, IN HHICH CASE AO 


IN THE INSTRUCTIONS 50-54, 60-64, AND 70-74 THE TERNS MAY BE INTERCHANGED UNLESS 


Q 1S 4 CONSTANT. 


Ts (TAGHL) 
MeX+B 
UeL+X 


IN THE [INSTRUCTIONS 50-52, 60-62, AND 70-72 THE PLUS SIGN (+) MAY BE REPLACED BY 
IF @ 1S A CONSTANT. 


A MINUS SIGN (+) 


Xe (P*50) 
JsK-558 
Yer} 
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€) IN THE INSTRUCTIONS 51, 61, AND 7i THE RIGHT MEMBER MAY BE AN INDICATED SUM OR 
DIFFERENCE OF A TAG AND A CONSTANT, IN KHICH CASE THE CONSTANT MUST FOLLOR THE 
TAG, 
ne (TAG-35i 
KeTaGe! 


UeTAG+ 1008 


F) oN THE INSTRUCTION 5! THE PARENTHIZED QUANTITY May BE A CONSTANT, REPRESENTED TN 
CONVENTIONAL FORTRAN FORM, ONLY IF THE RESULT REGISTER IS TO RECEIVE TRE MACHINE 
VERSION OF THAT CONSTANT; Ih THIS CASE THE ADCRESS OF THE CONVERTED NUMBER [S$ 
aSSEMBLED INTO THE INSTUCTION,. 

Te(-{, 56-6) 
Us (475505!60455478! 


6} IF IT IS DESIRED TS Have G CORRESPCHD TO AN OCTAL INTEGER, THEN THE DIGITS IN 
THE NUMBER MUST BE TRAILED BY 4 B. 


H) = ALTERNATE FORMS FOR CERTAIN INSTRUCTIONS ARE: 


$3S.S ehgk 
S«Sss 12i jk 
S=-S.S VOL gk 
S=#-S$$ {oi jx 
S=S+S 361 jk 
S*S-°S S05 ek 
SeSxS 401 2k 
S*S/S bai gk 
AeAtt Pitkin 4 
aetta Stik 
AeStd 521 3K 
AeSt] 531i 5k 
Asacl 55! gk 
Avitl 560i jk 
Aei-! 57i jk 


T) EACH INSTRUCTION AUST BE PUNCHED BETREEN COLUM 6 AND COLUMN 73 OF A CARD; NOD 
BLANKS ARE PERMITTED KiTHIN THE INSTRUCTION CODE. 


J) A COMMENT MAY FOLLOK ANY INSTRUCTION CODE, BUT A LEAST ChE BLANK MUST SEPARATE 
IT FROM THE INSTRUCTION. 


Kl AN ALPHANUMERIC LOCATION TAG OF 2-6 CHARACTERS MAY Bf PUNCHED IN COLUMNS (-6 OF 
A CARD CONTAINING AN INSTRUCTION; NO BLANKS ARE PERMITTED WITHIN THE TAG. 
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L) A PLUS SIGN (#) IN A LOCATION FIELD HILL FORCE THE CORRESPONDING INSTRUCTION TO 
THE HIGH ORDER POSITIONS OF A NEK HORD. 


M) «TRE «INSTRUCTION 00 IS ASSEMBLED AS A FULL ZERO KORG. 


204.8.6. CONSTANT FORMATS 


DECIMAL CONSTANTS IN STANDARD FORTRAN NOTATION MAY BE SPECIFIED IN ASSEMBLY-LANGUAGE. 
OCTAL CONSTANTS MAY BE SPECIFIED BY PLACING 4 'B' AFTER THE DIGITS OF THE NUMBER. 


IT IS NOTED THAT 


Al oA CONSTANT MUST BE PUNCHED BETAEEN COLUMN 6 ALD COLUMN 73 OF A CARD; WO BLANKS 
ARE PERMITTED WITH THE CONSTANT SPECIFICATION. 


“100.0 
500 

1008 

+15, 648-3 


B) «AN ALPHANUMERIC LOCATION TAG OF 2-6 CHARACTERS MAY BE PUNCHED iN COLUMNS {-6 OF 
A CARD CONTAINING A CONSTANT; NO BLANKS ARE PERMITTED HITHIN THE TAG. 


CON! -150.0 
CdN2 3. 6E 10 


C) = BLOCK RESERVATIONS OF ZERO WORDS, TAGGED OR UNTASGED, MAY BE MADE BY ENCLOSING 
THE NUMBER OF WORDS TO bE RESERVED IN PARENTHESES; THE PARENTHESIZE2 QUANTITY 
MUST APPEAR BETHEEN COLUMN 6 AND COLUMN 73 OF A CARD; IF A LOCATION TAG 
APPEARS ON THE SAME CARD, THEN IT HILL BE ASSOCIATED WITH THE FIRST KORD OF THE 
BLOCK, 


OKt (100) 
BK2 (2008) 
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204.9.1. 


THE FORTRAN COMPILER, -RUN-, IS CAPABLE OF PROCESSING PROGRAMS OR SUBROUTINES RRITTEN Ih A 


204.9.  ASCENTF ASSEMBLY LANGUAGE 


THIS SECTION IS QUOTED, ITH PERMISSION, FROM (33, PAGES 72-75, 84-86. 


CARD FORMATS 


SUBSET OF ASCENT ASSEMBLY LANGUAGE, SUCH PROGRAMS OR SUBROUTINES MAY BE INTERMIXED AITR 
REGULAR FORTRAN PROGRAMS AND SUBROUTINES. EACH MUST BE ORGANIZED AS FOLLGAS: 


oe wt 


HEADER CARDS. 

FORTRAN CaRDS, IF ANY. 
INSTRUCTION CARDS. 
COUSTANT CARDS. 

END CARD. 


IT 1S NOTED THAT 


a) 


8) 


¢) 


d 


1 


F) 


THE INSTRUCTION PORTION OF THE DECK MUST SE PRECESED SY LINES OF CODING AnICH 
PRODUCE 'O’ KERDS CORRESPONDING TO CONTROL WORDS, ARGUMENT REROS, AND AN 
EXiT/ENTRY WORD, 


THE INSTRUCTION PORTION OF THE DECK MAY CONTAIN 8SS, 6SS2, 4ND EQU CARDS. THE 
ADCRESS FIELD CF ANY SUCH CARD MAY CONTAIN ONLY A SINGLE CONSTANT. BSS AND BSSZ 
CARDS PRODUCE ZERO REGIONS. 


THE CONSTANT PORTICN SF THE DECK MAY CONTAIN BSS, 6SSZ, EQU, DPC, BCD, And CON 
CARDS. THE ADDRESS FIELDS OF THESE CARDS May CONTAIN ONLY A SINGLE CONSTANT CR 
TEN-CHARACTER STRING OF THE FORM xABCDEFGHI Js, DPC AND BCD CHARACTER STRINGS 
ARE REDUCED TO DISPLAY CODE. 


THE CONSTANT PORTION OF The DECK MUST BE SEPARATED FROM THE INSTRUCTION PORTION 
BY A CARD RITH THO PERIODS (..) PUNCHED IN COLUMNS 7 AND 8, 


THE END CARD IS PUNCHED AS IN FORTRAN, 1.€., "END’ APPEARS BETHEEN COLUMN 6 
AND 73 OF THe CARD. 


FORTRAN C-TYPE COMMENT CARDS ARE NOT PERMITTED. 
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G) 


H) 


J) 


K) 


Lu) 


M 


204.9.  ASCENTF ASSEMBLY LANGUAGE 


FORTRAN CARDS MAY CONTAIN COMMON, ECUIVALENCE, DINENSION, EXTERNAL, OR DATA 
STATEMENTS. IDENTIFIERS APPEARING IN THE STATEMENTS MAY BE USED IN SUSSEQUENT 
SYMBOLIC INSTRUCTIONS. CONTINUATION CARDS MUST CONTAIN AN ASTERISK (x) IN 
COLUMN 6. 


THE HEADER CARD MUST BE IN CHE OF THE FOLLOWING FORMATS: 


ASCENTF PROGRAM NAME 

ASCENTF PROGRAM NAME (AL,... ANI 
ASCENTF SUBROUTINE NAME 

ASCENTF SUBROUTINE NAME (at,... ANI 


THE HEADER INFORMATION MUST BE PUNCHED BETRKEEN COLUMN 6 AND COLUMN 73° OF EACH 
CARD USED. CONTINUATION CARSS MAY GE USED, BUT MUST BSE SESIGNATED BY «nN 
ASTERISK (#) IN COLUMN 6. 


INSTRUCTION FORMATS ARE AS CESCRIBED IN ASCENT PROGRAMMING MANUALS, BUT AITH 
CERTAIN RESTRICTIONS, aN ADDRESS FIELD MAY CONTAIN AN GNDICATED SUM OF aA TAG 
aD CONSTANT, BUT NOT A SUM SR DIFFERENCE CF TAT TAGS, LOCATION TaGS May START 
IN COLUMN 1, BUT MAY NOT EXTEND BEYOND COLUMN 6. INSTRUCTICNS Mai START 
ANYARERE BEYOND COLUMN 6, BUT NO CARD MAY CONTAIN MORE THAN ONE INSTRUCTION. 
THE PS INSTRUCTION CAUSES ASSEMBLY OF A FULL ZERO weRC. 


LOCATION TAGS ASSOCIATED WITH PSEUCO-OPERATIONS May START IN COLUMN 1, BUT MAY 
NOT EXTEND BEYOND COLUMN 6. 


DOUBLE-PRECISIGN AND COMPLEX "LITERAL CONSTANTS’ ARE NOT ACCEPTED. 
A MINUS SIGN (+) IN A LOCATION FIELD IS NOT ALLOKED. 


AN ASTERISK (=) IN AN ADDRESS FIELD IS NOT ALLOKED 
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ASCENTF ASSEMBLY LANGUAGE 


NSTRUCTION CODES (ASCENTF) 


OP 


MNEMONIC 


BRANCH UNIT 


. PROGRAM STOP 
«RETURN JUMP TO K 
. JUMP TS Bi+tK 
JUMP TOOK LF Kied 


.vUMP TOK LF XiK0 

JUMP TS K IF XiePLus (PSSiTI Ve) 
~vUMP TOK TF XiehEGATIVE 

JUN? TOK TF Xt IS TN RANGE 
JUMP TOOK TF Xt 1S SuT OF RANGE 
JUMP TOK IF Xt TS DEFINITE 
JUMP TOK IF Xt $$ INCEFINITE 

J JUMP TOK IF 9168; 

JUMP TOK IF Bied CR BO 

JUMP TOK [F BRB; 

JUMP TOK UF Biego 

JUMP TOK LF 5128; 

~ JUMP TOK IF Bi2zB0 

JUMP TOK IF 81<3; 

. JUMP TO K IF 81<30 


BOCLEAN UNIT 


J TRANSMIT Xy TO Xi 
JLOGICAL PRODUCT OF Xz; AND Xk TO 


Xt 


LOGICAL SUM OF Xj aND Xk TO Xi 
sLOGICAL DIFFERENCE OF Xj; AND Xk TO 


Xi 


. TRANSMIT THE COMP. SF Xj; TS Xi 
LOGICAL PRODUCT OF Xj AND Xk COMP, 


TO Xt 


LOGICAL SUM OF X; AND Xk COMP. «TS 


Xi 


LOGICAL DIFFERENCE OF Xj AND Xk 


COMP. TO Xi 


56 


ty tu fu tu 
- oO 


wa ry 


4} 


42 


THE CHIPPEKA COMPILER 


FXI 
FXi 


OXI 


OXi 


RXi 


RXt 


1Xi 
IXi 


Fxt 


RXi 


OXI 


Xj4Xk 
Xp°Xk 


Xj¥Xxk 
Xp2Xk 


Xjuxk 
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ASCENTF ASSEMBLY LANGUAGE 


SHIFT UNIT 


JLEFT SHIFT Xi, gk PLACES 

JARLTHMETIC RIGHT SHIFT Xi, gk PLACES 

LEFT SHIFT Xi NOMINALLY Bi PLACES 

ARITHMETIC RIGHT SHIFT Xi NOMINALLY 
Bi PLACES 

JNORMALIZE Xk IN Xi AND Bg 

ROUND AND GORMALIZE Xk IN Xi AND 
Bj 

UNPACK Xk TS Xt AND Bj 

.PACKS Xi FROM Xk AND Bj 

FORM MASK SN Xi,gk BITS 


ADD UNIT 


«FLOATING SUM OF Xj AND Xk TO Xi 

sFLOATING DIFFERENCE Xj AND Xk TH 
Xi 

FLOATING SP SUM OF Xj AND xk Td 
Xl 

sFUSATING DP DIFFERENCE OF Xj AND Xk 
TO Xi 

eROUND FLOATING SUM OF XZ AND Xk TO 
Xi 

ROUND FLOATING DIFFERENCE OF Xj AND 
Xk TO Xi 


LENG ADD UNIT 


INTEGER SUM OF Xj AND Xk TO XI 
J INTEGER DIFFERENCE OF Xj; AND Xk TS 
XI 


MULTIPLY UNIT 


sPLOATING PRODUCT OF Xj AND Xk TO 
Xt 

-ROUND FLOATING PRODUCT SF Xj AND Xk 
TO Xi 

-FLOATING OP PRODUCT OF Xj AND Xk TS 
Xi 
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wn 
» 


GG 3 re Ee de Be Bx Fe Fe Fo YH 


WUMNMNMNMNMNNNNNN YM 
se ete meee 
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OLVIDE UNIT 


sFLOATING DIVIDE Xj BY Xk TO Xi 
eROUND FLOATING DIVIDE Xj; BY Xk TO 


Xi 


wNO OPERATION 
. COUNT THE NUMBER OF {'S IN Xj TS Xt 


INCREMENT UNIT 


«SET Ai TO 
«SET ai TO 
«SET Ai TO 
~SET ai TS 
.SET &i TO 
.SET AG TO 
«SET Ai Td 
.SET Ai Td 
«SET at TO 
SET At 16 
.SeT At 16 
SET 9t TO 
.SET BI TO 
.SET Bf 18 
.SET Bi Te 
JSET Bi TE 
«SET Gf TO 
.SET Bi TO 
.SET 8 TO 
SET Bi TO 
.SET Bi TO 
«SET Bt TS 
«SET XE TS 
«SET Xi TS 
Sob. Xi ok 
~SET Xi TO 
.SET XT 1S 
~SET XE TO 
.SET Xi TO 
.SET Xi TO 
SET Xi TS 
.SET Xi TS 
-SET Xi TS 


AjtK 


age COMP, 


By +K 
By+ COMP. 
Kj+K 


Xje COMP. 


Xj+Bk 
ajrak 
aj7B« 

By +5k 
8;-3k 
AGYK 

aye COMP, 
By +K 

By+ COMP. 
Xj+K 

Xjr COMP, 
XjrBk 
AjtBk 
43°Bk 
By+Sk 
By-Bk 
AS+K 

Aje COMP, 
By+K 

By+ COMP. 
XyeK 

Xz+ COMP. 
Xy+Bk 
Aj+8K 
Aj-Bk 
Bj+t3k 
By-Bk 


OF 


oF 


OF 


oF 


oF 


OF 
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204.9.  ASCENTF ASSEMBLY LANGUAGE 


204.9.5.  PSEUDO-OPERATIONS (CLASS AND ASCENTF) 


PROGRAM: 
SUBROUTINE: 
END: 

BSS: 


EGU: 


OPC: 
BCD: 


CON: 
EJECT: 


SPACE: 


DEFINES THE JO8 TS BE A PROGRAM; THE SYMBOL IN THE ADDRESS FIELD [S THE 
NAME OF THE PROGRAM AS REFERENCED BY THe SYSTEM. 


DEFINES THE JOB TS BE A SUBROUTINE AND SETS RELOCATABLE BITS FOR LATER 
USE BY THE FORTRAN COMPILER OR MACHINE PROGRAM. THE SYMBOL IN THE 
ADDRESS FIELD IS THE NAME USED TO REFERENCE THE SUBROUTINE. 

LAST CaRD OF A PROGRAM OR SUBROUTINE. 


THE BLOCK RESERVATION. ADDRESS FIELC 


ADDRESS FIELD DEFINES TRE LENGTH OF 
i CONSTANT. 


MAY BE INTEGER CONSTANT OR SYMBOL 
ECUIVALENCES A SYMBOL TO ANOTHER SYMBOL CR A CONSTANT. 


ALLOWS THE ENTRY CF CONSCLE DISPLAY COLES, TRE LENGTH BEING SPECIFIES BY 
A 2 DIGIT INTEGER, OR THE CODES SETHEEN a'S ARE ENTERED. 


CONVERTS THE CHARACTERS ENCLOSED BY THE ASTERISKS OR CONVERTS THE 
CHARACTERS SPECIFIED BY THE BEGINNING 2 DIGIT INTEGER, 


CONVERTS EACH TERM 70 4 60 BIT CONSTANT. 
EJECTS THE LISTING TO THE TOP OF THE NEXT Pace. 


SPACES THE NUMBER OF LINES SPECIFIED BY THE ADDRESS FIELD. 
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B 


0000 DISPLAY CODE 
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6600 DISPLAY CODE 
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O1 


Pack 6! 


000048 
0000438 
000045 
N00046 
ob0051 


o00u5e 
600057 
onge8?7 
000961 
oGon63 
000101 
009114 
000114 
000147 
O0012u 
00012¢ 
000125 
olg125 
nlg126 
o0g131 
O0g1S4i 
obg1S5 
on91i34 


ences Cc 


Cae 


| 


BY 


FORTRAN JV PROGRAM TESTCINPs IAPE28 JNP,PUUT» TAPES sPQUT) 
THE INPUT LINE ON THE TeLeTYPE JS! 
CHIP WRITEUP,».,20U090 
WHERE WRrTEUP WAS THt NAME ow THE Ip CARD 


DIMENSION A(40),B8¢10) 

CALL UHANGE ¢5H4TEST) 

NNS59 

CALL VEVILE (6HGREATE,SHPUUT> tngasg,fERR?) 
IF CTERR) 1054019 


THe JNPUY FIiE GOULD Be CFealeD gY REAVING JN a DAT, DECK OR 
USING NAB 


READ (202) A 

FORMA! (8610,5) 

DY 3 14,10 

Btl) = A€l) e195, 

B¢ly 2 BCL) se CEyPFCACTIIOEXPECHAGID) 7 7) 
WKITE €3,4) @ACT)s,BCDe215101 9 

FUKMAI(wA = ® ,E€25,149 * BF w c0& 25,14) 
CALL GIVWSP ¢5085,4HPOUT,IERR? 

IFCTERR) 12,5,19 

CALL EXIT(1) 

WRITE (NN, 1129 

FUKMAI(CWUMABILE TO CREATE FILr NAMEL POUT *) 
GQ 70 5 

WRITE (NN,13) 

FORMAT CeUNABLE TO GIVE FILE “aMEn Pout) 
PAUSE 

60 yo ° 

END 


YT dNOD WM3ddIH) JHL 


[ds-02=SS11-919 


89/LE/8 


29 «34Va 
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t92610 


$2T990 


sua] 


S 


Z2g20t0 


ZeToud 


cidaylant 
Saryvandw3) 


SLNVISNO4 

097400 

t gezcoioou 4 a p2708)3 
CLNQWNITSSYV 

at ezto0u * OT ¢409000 
cLNAHNDTSSy 

SLINQHNITSSY 


t22000 
JO yevyse 
202000 
40 LeVySu 
2et0n0 
40 Levyse 
= NN 
= y 
JIAVEMWAL 
= t 
LNSvaLlv se 
NOTLONA de 
Sal 
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957940 


gtt,90 
829900 
pggJ0 
gpttid 


advil 


O18 


Isl 
1Ixa 


91d LNO 


95,5 +9 


pon, ue 
79g99u0 
gtpyul 
spnTtua 


® @ ee 


1no4 


AldwWw3 


201 
Qtodnt 


dx 


£92679 


942908 
269900 
L2e40U 
2Zp000 


& ££ 8 8B 


30Vus dadidqwod 


30V4S 


Cady 


us! 
aN3 
qa 
39bAI0 


wend 


“HLOW]T 


Hi9OnG1 


HLONF) 


£97940 
G¥yodd) 


SeT200 
20,900 
029909 
pspeo9 
297009 


SLNIWNOLCSY 


SLNSWNOTSSY 


006f£00 
NasSANny 
nd¢epao 
N3ASnn’ 
229p00 
Had4nau 
youv000 
NOWWQOY 
Tetz2o0 
WIG TW 
GN] 
y3adar gu 
ooOTIO 
Hoo“ 
AV 130 
HOLLIS 
asnyd 
dSkAT9 
JONVHO 


cINISWNOlesy ani lLnowdnse 
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disclosed. or represents that its use would not infringe privately- 
owned rights.”’ 
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